В одномерном массиве А(10) найти наибольший элемент .решение в паскаль

Question

В одномерном массиве А(10) найти наибольший элемент .решение в паскаль

Answer 1

Var
a:array[1..1000000]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do begin
if a[i]>max then
max:=a[i];
end;
writeln('максимальный элемент массива=',max);
end.