Помогите пожалуйста, решить задачу на тему "Массивы". Задать одномерный массив с клавиатуры из 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы