Пользователь вводит массив из 10 чисел, надо вывести максимальное

Question

Пользователь вводит массив из 10 чисел, надо вывести максимальное

Answer 1

 const n=5;
var
 a:array[1..n]of integer;
 c,i:integer;
begin
  for i:=1 to n do
    begin
     read(a[i]);
     if i=1 then
       c:=a[i];
     if a[i]>c then
       c:=a[i];
   end;
 writeln(c);
end.