Question

Напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 3 и оканчивающиеся на 2. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести отдел число: сумму чисел, кратных 3 и оканчивающихся на 2.
Входные данные:
4
12
25
12
9
Выходные:
24

Answer 1

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
write(ReadSeqInteger(ReadInteger).Where(x->(x mod 3=0) and (x mod 10=2)).Sum);
end.