Предмет: Информатика,
автор: Виктория0910
Помогите пожалуйста, решить задачу на тему "Массивы".
Задать одномерный массив с клавиатуры из n-элементов, вывести количество пар, в которых хотя бы одно число заканчивается на число 2
Ответы
Автор ответа:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Интересные вопросы
Предмет: Математика,
автор: bretaudeauroblox
Предмет: Геометрия,
автор: brajcenkoelizaveta
Предмет: Алгебра,
автор: tpopkova943
Предмет: География,
автор: suris20122001
Предмет: Биология,
автор: Adeleine