Паскаль

найти максимальный элемент из 30 целых чисел которые вводятся постоянно

Question

Параскева

26 апреля, 06:45

+3

Ответы (1)

Знаете ответ на вопрос?

Армен · Answer 1

const n=30;

var max, i, x:integer;

begin

max:=-MaxInt;

for i:=1 to n do begin

readln (x) ;

if x>max then max:=x;

end;

writeln (max) ;

end.

Паскальнайти максимальный элемент из 30 целых чисел которые вводятся постоянно