Задача 3 урок 15

Задача 3 урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

program zadacha3;
var a: array [1..7] of integer;
  i, j: integer;

begin
  for i:=low(a) to high(a) do
  begin
    writeln('Vvedite element massiva nomer ',i,':');
    readln(a[i]);
  end;
  j:=a[1];
  for i:=low(a) to high(a) do
    if a[i] > j then
      j:=a[i];
  writeln();
  writeln('Naibolshee chislo: ',j);
  readln();
end.