Question

Помогите с массивами В массиве 20 случайных чисел. Найдите и выведите на экран максимальное из них.

Answer 1

Var
A: array[1..20] of integer;
i,max:integer;
Begin
Randomize();
for i:=1 to 20 do A[i]:=random(100);
max:=A[20];
for i:=1 to 20 do
if (A[i]>max) then max:=A[i]; 
writeln(max);
end.