Последовательно вводятся n целых чисел. найдите максимальное из них

271

461

Посмотреть ответы 3

Ответы на вопрос:

sasha228111228

Информатика

4,7(15 оценок)

Var n, x, max, i: integer; begin max : = 0; writeln('введите количество чисел n: '); read(n); writeln('введите n чисел: '); for i : = 1 to n do begin read(x); if x > max then max : = x; end; writeln('максимальное: ', max); end.

Назерке2707

Информатика

4,5(37 оценок)

Program ololo; var max,n,i,a: integer; begin max: =0; readln(n); for i: = 1 to n do readln(a); if (a> max) then max: =a; end; writeln(max); end. вроде так)