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]; Каждый с каждым!