задача 4 урок 15

задача 4 урок 15

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

program task_4_Lesson_15;
var a: array[1..7] of integer;
  i, j, b, max, next: integer;
begin
  for i := 1 to 7 do
    begin
      readln(b);
      a[i] := b;
    end;

  max := low(a);         // предположим что максимум это первый элем.
  for i := 1 to 7 do     // начинаю перебор со второго элемента
    if a[i] >= max then
      max := a[i];
  writeln('Samoe bolshoe : ',max);
  next := low(a);
  for j := 1 to 7 do
    if (next <= a[j]) and (a[j] < max) then // проверяем первое меньше второго и меньше максимума
      next := a[j];
  writeln('2-e po vilichine chislo : ',next);
  readln
end.