23.11.2018

ЕГЭ

Дальнейшая оптимизация программы

Не нужен массив a – будем определять остатки в процессе ввода.

Нужен только массив b.

…

Сначала занулим элементы массива b

For i:=1 to 10 do

B[i] :=0;

Вводим и сразу считаем: сколько элементов, с какими остатками

For i:=1 to n do

Begin

Readln(a);

B[(a mod 10)+1]:= B[(a mod 10)+1]+1;

End;

…

Для остатков 1..4 и 6..9 все проще

For i:=2 to 5 do

S:=s+b[i]*b[12-i]; Каждый с каждым!

…