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

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

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

Примеры для проверки:

1 2 2 1 1 1 1
Ответ: 2 2
-1 -2 -2 -1 -1 -1 -1
Ответ: -1 -1
-1 -2 -2 5 4 -1 -1
Ответ: 5 4

Решение:

program u15z04;
var i,m1,m2:integer;
  a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
  begin
    write('vvedite chislo - ');
    readln(a[i]);
  end;
  m1:=a[1];
  m2:=a[1];
  for i:=low(a) to high(a) do
    if (a[i]>m1) then
      m1:=a[i];
  for i:=low(a) to high(a) do
    if (a[i]>m2)and(a[i]<m1) then
      m2:=a[i];
  writeln('maximum = ',m1,' ',m2);
  readln();
end.

Консоль:

vvedite chislo - 3
vvedite chislo - -1
vvedite chislo - 5
vvedite chislo - -5
vvedite chislo - 0
vvedite chislo - 6
vvedite chislo - 2
maximum = 6 5