Question

Дан массив А(10), заполненный датчиком случайных чисел. Найти наибольший элемент.Прошу помогите!

Answer 1

Const
   n=10;
var
   a: array[1..n] of real;
   s: real;
   i: integer;
begin
   Randomize; // инициализация датчика случайных чисел
   s:=-1000; // датчик выдает только неотрицательные значения
   for i=1 to n do a[i]:=random(100);
   for i:=1 to n do
     if a[i]>s then a[i]:=s;
   writeln('максимум =',s)
end.