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

Question

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

Answer 1

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.