Дано n вещественных чисел. Найти величину наибольшего из них. Выполнить в Pascal

Var i, n: integer;

max: real;

a: array [1 ... 100000] of real;

begin

//заполнение массива данными

Write ('Введите количество вещественных чисел: '); Readln (n);

for i:=1 to n do a[i]: = random (100);

//вывод массива

for i:=1 to n do write (a[i], ' ');

Writeln ();

//нахождение максимального числа в массиве

max:=0;

for i:=1 to n do

begin

if a[i]>max then max:=a[i]

end;

Writeln ('Максимальное число - ', max);

end.