Составьте программку, которая вычисляет величайшее число из элементов массива

const n=30;

var a:array[1..n] of integer;

i,max:integer;

begin

randomize;

writeln('Начальный массив:');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i],' ');

end;

writeln;

max:=a[1];

for i:=2 to n do

if a[i] gt; max then max:=a[i];

writeln('max = ',max);

end.

Пример:

Начальный массив:

65 85 66 86 42 36 90 97 66 98 39 19 30 14 81 33 29 24 29 71 36 11 14 32 98 10 33 73 10 34  

max = 98