Дан массив с 50 элементами. Найти максимальный элемент массива. Используйте для ввода элементов массива функцию Random(x).
Дан массив с 50 элементами. Найти максимальный элемент массива. Используйте для ввода элементов массива функцию Random(x).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы