Question

Дано N целых чисел. Найти сумму чисел,которые делятся на 3

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Результат:', a.Where(x -> x mod 3 = 0).Sum);
• end.

Пример работы: