В связи с визитом Императора Палпатина было решено обновить состав дроидов в ангаре 32. Из-за кризиса было решено новых дроидов не закупать, но выкинуть пару старых. Как известно, Палпатин не переносит дроидов с маленькими серийными номерами, так что все, что требуется - найти среди них двух, у которых серийные номера наименьшие. Входные данные
Первая строка входного файла содержит целое число N – количество дроидов. (2 ≤ N ≤ 1000), вторая строка – N целых чисел, по модулю не превышающих 2*109 – номера дроидов
Выходные данные
Выведите два числа: первым – последний по величине из номеров дроидов (такого следует утилизировать в первую очередь), а вторым – предпоследний.
n=10;
var
a,b:array[1..n] of integer;
i,si,smax:integer;
begin
Writeln('Введите парами длины катетов ',n,' треугольников');
smax:=0;
for i:=1 to n do begin
Read(a[i],b[i]);
si:=a[i]*b[i]; { пополам разделим потом максимальное }
if si>smax then smax:=si
end;
Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
for i:=1 to n do
if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
Writeln
end.
Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20
0 0 0 1 0 0
0 0 1 1 1 1
0 1 0 0 0 0
0 1 1 0 0 0
1 0 0 1 0 1
1 0 1 1 1 1
1 1 0 0 0 1
1 1 1 0 0 1