Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму чисел, кратных 6 и оканчивающихся на 8.

Answer 1

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

begin
    var a:=ReadArrInteger(ReadInteger('n='));
    Writeln(a.Where(x->(x mod 10=8)and (x mod 6=0)).Sum);
end.