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

Question

Информатика

Сатира

19 ноября, 01:35

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

+4

Ответы (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.