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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.