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

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

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

type ar = array[1..7] of integer;
var i, a, b : integer;
    Arr : ar;
begin
  for i:=1 to 7 do // инициализация
    readln(Arr[i]);
  if Arr[1] > Arr[2] then
  begin
    a := Arr[1]; // максимальное значение из двух первых элементов массива
    b := Arr[2];
  end
  else
  begin
    a := Arr[2]; // максимальное значение из двух первых элементов массива
    b := Arr[1];
  end;

  for i := 3 to 7 do
    if a < Arr[i] then
    begin
      b := a;
      a := Arr[i];
    end
    else
      if b < Arr[i] then
        b := Arr[i];
  write(b, ' ', a);
  readln();
end.