Дан массив размера н ,заполненный случайными числами.найти максимум из этих чисел

1

Ответы и объяснения

Лучший Ответ!
2013-11-28T21:32:50+00:00
const n=20;
var
i,max:integer;
ar:array[1..n] of integer; 
begin
max:=0;
randomize;
for i:=1 to n do begin
ar[i]:=random(100)+1;
if ar[i] > max then max:=ar[i];
end;
writeln(max);
end.