Нахождение наибольшего элемента всего массива. (Паскаль)

Question

Информатика

Галуха

4 марта, 03:07

Нахождение наибольшего элемента всего массива. (Паскаль)

+5

Ответы (1)

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

Евграфий · Answer 1

const n = 10;

var

a: array[1 ... n] of integer;

i, max: integer;

begin

for i : = 1 to n do begin

a[i] : = random (100) ;

write (a[i], ' ') ;

if (a[i] > max) then max : = a[i];

end;

writeln;

writeln ('Наибольший эл. массива: ', max) ;

end.