var n,n1,n2,n3:integer; begin; readln (n); n1:=n mod 10; n:=n div 10;

Ответ:

N: integer; количество чисел

    a: integer; еще одно число

    n10, n5, n2: integer;

    k10: integer; количество требуемых пар

    i: integer;

begin

    readln(N);

    n10:=0; n5:=0; n2:=0;

    for i:=1 to N do begin

        readln(a);

        if a mod 10 = 0 then

            n10 := n10 + 1

       else if a mod 5 = 0 then

            n5 := n5 + 1

        else if a mod 2 = 0 then

            n2 := n2 + 1;

   end;

   k10 := n10*(n10-1) div 2 + n10*(N-n10) + n2*n5;

   writeln(k10)

end.

Вероятно также лобовое решение: запишем все начальные числа в массив, переберём все вероятные пары и подсчитаем количество подходящих. Такое решение не является эффективным ни по памяти (требуемая память зависит от размера исходных данных), ни по времени (количество вероятных пар, а означает, количество действий и время счёта с ростом количества начальных элементов растёт квадратично). Такая программа оценивается не выше 2-ух баллов.

Ниже приведена реализующая описанный выше метод программка на языке Паскаль (использована версия PascalABC)

Объяснение: