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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.