Паскаль

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

Question

Козьминична

21 ноября, 17:25

+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 целых чисел которые вводятся постоянно