Содержание верного ответа
(допускаются иные формулировки ответа, не искажающие его смысла)
Сумма двух чисел кратна если сумма остатков от деления этих чисел на кратна При этом для получения максимального произведения из чисел с одинаковыми остатками нужно выбирать наибольшее. Будем хранить в массиве из элементов максимальное число, имеющее соответствующий остаток от деления на Каждое введённое число будем рассматривать как правый элемент возможной пары, находить соответствующий ему парный остаток, вычислять произведение пары и при необходимости обновлять максимум для произведения и для чисел с данным остатком.
Ниже приведена программа на алгоритмическом языке, реализующая этот алгоритм.
Решение 1. Правильная и эффективная программа на алгоритмическом языке
алг задача27
нач
цел m = 80
цел таб a[0:m-1]
цел N
цел x | очередное число из последовательности
цел x1,x2 | ответ - пара чисел
цел p,pp | остаток и парный ему остаток
цел i
нц для i от 0 до m-1
a[i] := 0
кц
x1 := 0; x2 := 0
ввод N
нц N раз
ввод x
p := mod(x,m)
pp := mod(m-p,m)
если x*a[pp] > x1*x2
то x1 := a[pp]; x2 := x
все
если x > a[p]
то a[p] := x
все
кц
вывод x1,
кон
В приведённом решении в переменную записывается остаток от деления на очередного числа из последовательности, а в переменную – парный к нему остаток, то есть тот остаток, который должен быть у второго числа пары, чтобы сумма чисел делилась на При вычислении учитывается особый случай, когда заданное число делится на то есть В этом случае парный остаток тоже должен быть равен Возможно вычисление с использованием конструкции «если» или обработка этой ситуации в отдельной ветке программы. Во всех этих случаях (если они реализованы без ошибок) программа остаётся правильной и эффективной и может быть оценена высшим баллом. Порядок проверки условий (сначала обновление произведения, затем – элемента массива) важен. Если сначала обновить массив, то при и вместо произведения двух разных элементов может быть получен квадрат одного элемента последовательности. В программе нет специальной проверки наличия в последовательности подходящих пар, но если их нет, переменные и сохранят заданные в начале программы нулевые значения и будет выведен верный ответ. Возможно также «лобовое» решение: запишем все исходные числа в массив, переберём все возможные пары и выберем подходящую. Такое решение не является эффективным ни по памяти (требуемая память зависит от размера исходных данных), ни по времени (количество возможных пар, а значит, количество действий и время счёта с ростом количества исходных элементов растёт квадратично). Подобная программа оценивается не выше баллов. Ниже приведена реализующая описанный выше алгоритм программа на языке Паскаль (использована версия PascalABC).
Решение 2. Правильная, но неэффективная программа на языке Паскаль
const m=80;
var
N: integer;
a: array [1..10000] of integer;
x1, x2: integer;
i,j: integer;
begin
readln(N);
for i:=1 to N do readln(a[i]);
x1:=0; x2:=0;
for i := 1 to N do begin
for j := i+1 to N do begin
if ((a[i] + a[j]) mod m = 0) and
(a[i]*a[j] > x1*x2)
then begin
x1:=a[i]; x[2]:=a[j]
end
end
end;
writeln(x1, ' ', x2)
end.
Указания по оцениванию
Если в работе представлены две программы решения задачи, то каждая из них независимо оценивается по указанным ниже критериям, итоговой считается бόльшая из двух оценок. Описание алгоритма решения без программы оценивается в баллов.