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

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

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

type myArr = array[1..7] of integer;
var
  a: myArr; // объявляем переменную типа  myArr
  i, b: integer;
begin
   b:=0;
   for i:=low(a) to high(a) do
   begin
     writeln('vvedite element massiva nomer ', i, ':');
     readln(a[i]);
   end;
   writeln('>>> elementi:');
   for i:=low(a) to high(a) do
     if b < a[i] then
       b := a[i];
     writeln(b);

   readln();
end.