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

Урок 15

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

type myArr = array[1..7] of integer;

var a: myArr;
    i, k: integer;
begin
  for i := low(a) to high(a) do
  begin
    writeln('Vvedite element massiva nomer ', i);
    readln(a[i]);
  end;
  k := a[1];
  writeln('Elementi massiva');
  for i := low(a) to high(a) do
  begin
    write(a[i], ' ');
    if a[i] > k then
     k := a[i];
  end;
  writeln();
  write('Samoe bolshoe chislo = ', k);
  readln();
end.

КОНСОЛЬ

Vvedite element massiva nomer 1
15
Vvedite element massiva nomer 2
5
Vvedite element massiva nomer 3
-15
Vvedite element massiva nomer 4
5
Vvedite element massiva nomer 5
5
Vvedite element massiva nomer 6
9
Vvedite element massiva nomer 7
1
Elementi massiva
15 5 -15 5 5 9 1
Samoe bolshoe chislo = 15