На вход программы поступает последовательность из N целых положительных чисел. Рассматриваются все пары различных элементов последовательности (элементы пары не обязаны стоять в последовательности рядом, порядок элементов в паре не важен). Необходимо вывести пару элементов, разность которых четна, а сумма максимальна. При этом по крайней мере одно число в паре делится на 31. Если таких пар несколько, то можно вывести любую из них. Если найти такую пару невозможно, то нужно вывести два нуля.
Описание входных и выходных данных
В первой строке входных данных задаётся количество чисел N (1 ≤ N ≤ 1000). В каждой из последующих N строк записано одно целое положительное число, не превышающее 10 000. В качестве результата программа должна напечатать два числа.
Требуется написать эффективную по времени и по памяти программу для решения описанной задачи. Программа считается эффективной по времени, если при увеличении количества исходных чисел N в k раз время работы программы увеличивается не более чем в k раз. Программа считается эффективной по памяти, если память, необходимая для хранения всех переменных программы, не превышает 1 Кбайт и не увеличивается с ростом N.
Максимальная оценка за правильную (не содержащую синтаксических ошибок и дающую правильный ответ при любых допустимых входных данных) программу, эффективную по времени и по памяти, — 4 балла. Максимальная оценка за правильную программу, эффективную только по времени — 3 балла. Максимальная оценка за правильную программу, не удовлетворяющую требованиям эффективности, — 2 балла. Вы можете сдать одну программу или две программы решения задачи (например, одна из программ может быть менее эффективна). Если Вы сдадите две программы, то каждая из них будет оцениваться независимо от другой, итоговой станет бо́льшая из двух оценок.
Перед текстом программы обязательно кратко опишите алгоритм решения. Укажите используемый язык программирования и его версию.
Пример 1. Программа на языке Паскаль. Программа эффективна по времени и памяти.
var
max31: array[0..1] of integer;
max: array[0..1] of integer;
N, i, j, k: integer;
begin
readln(N);
max31[0] := 0;
max31[1] := 0;
max[0] := 0;
max[1] := 0;
for i := 1 to N do begin
readln(k);
if (k mod 31 = 0) and (k mod 2 = 0) and (k >= max31[0]) then
if k <> max31[0] then
max31[0] := k
else
max[0] := k
else if (k mod 31 = 0) and (k mod 2 <> 0) and (k >= max31[1]) then
if k <> max31[1] then
max31[1] := k
else
max[1] := k
else if (k mod 31 <> 0) and (k mod 2 = 0) and (k > max[0]) then
max[0] := k
else if (k mod 31 <> 0) and (k mod 2 <> 0) and (k > max[1]) then
max[1] := k
end;
if (max31[0] + max[0]) > (max31[1] + max[1]) then
writeln(max31[0], ' ', max[0])
else writeln(max31[1], ' ', max[1])
end.

