Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Const n =5;
var
  a:array[1..n] of integer;
  i,max:integer;
begin
  writeln(Введите 1 элемент массива);
  readln(a[1]); max:=a[1];
  for i:=2 to n do begin
    writeln(Введите , i, элемент массива);
    readln(a[i]);
    if a[i]>max then max := a[i];
  end;
  writeln(Максимальный элемент массива равен ,max);
end

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