Разбор досрочного задания 27 ЕГЭ по информатике 2020 ФИПИ. Найти пару с максимальной суммой

Смотрите на сайте разбор других заданий по теме:
https://labs-org.ru/ege-27-practice/

Неэффективное решение на паскале: 43:30

Будем благодарны за поддержку канала: яндекс-кошелек 410013776770554

Решение досрочного ЕГЭ по информатике 2020. Объяснение 27 задания: решение варианта с объяснением.

Дана последовательность N целых положительных чисел. Рассматриваются все пары элементов последовательности, разность которых чётна, и в этих парах, по крайней мере, одно из чисел пары делится на 17. Порядок элементов в паре неважен. Среди всех таких пар нужно найти и вывести пару с максимальной суммой элементов. Если одинаковую максимальную сумму имеет несколько пар, можно вывести любую из них. Если подходящих пар в последовательности нет, нужно вывести два нуля.

Эффективный алгоритм на Паскале:
const
p = 17;

var
N: integer; {количество чисел}
a: integer; {очередное число}
m0, m1: integer; {чётный и нечётный максимумы}
mp0, mp1: integer; {чётный и нечётный максимумы, кратные p}
x, y: integer; {ответ – пара чисел}
i: integer;
begin
m0 := 0; m1 := 0;
mp0 := 0; mp1 := 0;
x := 0; y := 0;
readln(N);
for i := 1 to N do
begin
readln(a);
// для четных
if a mod 2 = 0 then
begin
// если кратное
if (a mod p = 0)and(a больше либо равно mp0) then
begin
if mp0 больше m0 then
m0:=mp0;
mp0:=a
end
else if a больше m0 then
m0 := a;
end
else
begin
// для нечетных
if (a mod p = 0)and(a больше либо равно mp1) then
begin
if mp1 больше m1 then
m1:=mp1;
mp1 := a;
end
else if a больше m1 then
m1:=a;
end;
end;
if (mp0 больше 0) and (m0 больше 0) then
begin
x := mp0; y := m0;
end;
// writeln('mp1=', mp1, 'm1=', m1);
if (mp1 больше 0) and (m1 больше 0) and (mp1 + m1 больше x + y) then
begin
x := mp1;
y := m1;
end;
writeln('=', x, ' ', y)
end.

Неэффективное решение на Паскале:
const
p = 17;
var
N: integer; {количество чисел}
a: array [1..10000] of integer; {исходные данные}
x, y: integer; {ответ – пара чисел}
i, j: integer;
begin
readln(N);
for i := 1 to N do readln(a[i]);
x := 0; y := 0;
for i := 1 to N - 1 do
begin
for j := i + 1 to N do
begin
if ((a[i] - a[j]) mod 2 = 0) and
((a[i] mod p = 0) or (a[j] mod p = 0)) and
(a[i] + a[j] больше x + y)
then
begin
x := a[i]; y := a[j]
end
end
end;
writeln(x, ' ', y)
end.

Видео Разбор досрочного задания 27 ЕГЭ по информатике 2020 ФИПИ. Найти пару с максимальной суммой канала Светлана Майер