Дан целочисленный А[1 ... 10], заполненный датчиком случайных чисел найти максимальный элемент массива.

program prim1;

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

i, max : integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (30) ;

writeln (‘znas4enie’, i, ‘elementa massiva=’, a[i]) ;

end;

max: = a[1];

for i:=1 to 10 do

if a[i] > max then max: = a[i]; writeln (‘max=’, max) ;

end.