Урок 15. Задача 3.

Урок 15. Задача 3.

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

type ar = array[1..7] of integer;
var i, a : integer;
    Arr : ar;
begin
  for i:=1 to 7 do // инициализация
    readln(Arr[i]);
  a := Arr[1]; // первый элемент массива
  for i := low(Arr) to high(Arr) do
  begin
    if a < Arr[i] then
      a := Arr[i];
  end;
  write(' ', a);
  readln();
end.