Question

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

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.