Дан целочисленный А[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.