Дан массив с 50 элементами. Найти максимальный элемент массива. Используйте для ввода элементов массива функцию Random (x).

Question

Информатика

Кастрихий

22 февраля, 14:54

Дан массив с 50 элементами. Найти максимальный элемент массива. Используйте для ввода элементов массива функцию Random (x).

+2

Ответы (1)

Знаете ответ?

Рая · Answer 1

Var m : array[1 ... 50] of Integer;

i, max : Integer;

Begin

max:=0;

For i:=1 to 50 do

Begin

m[i]:=Random (100) ;

if m[i]>max then max:=m[i];

end;

Writeln (max) ;

end.