Помогите пожалуйста, решить задачу на тему «Массивы». Задать одномерный массив с клавиатуры из n-элементов, вывести количество пар, в которых хотя бы одно число заканчивается на число 2

Вопрос школьника по предмету Информатика

Помогите пожалуйста, решить задачу на тему «Массивы».
Задать одномерный массив с клавиатуры из n-элементов, вывести количество пар, в которых хотя бы одно число заканчивается на число 2

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017

// Внимание! Если программа не работает, обновите версию!

begin

  var a:=ReadArrInteger(‘Вводите:’,ReadInteger(‘n=’));

  var k:=a.Pairwise.Where(x->(x[0] mod 10=2) or (x[1] mod 10=2)).Count;

  Writeln(‘Количество искомых пар равно ‘,k)

end.

Пример

n= 10

Вводите: 35 113 42 18 13 72 52 37 10 14

Количество искомых пар равно 5