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

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

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

type
myArr = array [1..7] of integer;
var a:myArr;
    i,max1,max2:integer;
begin
  for i:=low(a) to high(a) do
    begin
      writeln('vvedite element massiva nomer ', i, ':');
      readln(a[i]);
    end;
   max2:=a[2];
   max1:=a[1];
  for i:=low(a)+2 to high(a) do
    if a[i]>max2 then
      begin
        max1:=max2;
        max2:=a[i]
      end
    else
      if a[i]>max1 then
        max1:=a[i];
    writeln(max1,' ',max2);
    readln();
end.  

Вывод консоли:

vvedite element massiva nomer 1:
5
vvedite element massiva nomer 2:
6
vvedite element massiva nomer 3:
12
vvedite element massiva nomer 4:
24
vvedite element massiva nomer 5:
2
vvedite element massiva nomer 6:
1
vvedite element massiva nomer 7:
4
12 24