Program mi; var n, ch, i, max: integer; begin max: =1; write('введите кол-во чисел в последовательности -> '); readln(n); writeln('введите последовательность: '); for i: =1 to n do begin write('-> '); readln(ch); if ch > max then max: =ch; end; writeln('максимальное число: ', max); end. нарисуйте блок

masha091115    3   10.05.2019 13:34    1