Question

С клавиатуры вводится сначала количество чисел, а затем сами числа. Найдите сумму всех чётных чисел последовательности.

Answer 1

var

i, x, sum, n: integer;

begin

read(n);

for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;

writeln(sum);

end.

Answer 2

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger(ReadInteger).Where(t->t.IsEven).Sum.Println
end.

Пример
8
5 -3 12 7 14 23 18 -20
24