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

program proba;
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 3

main.pas(6,24) Warning: Variable "sum" does not seem to be initialized
Linking main
8 lines compiled, 0.1 sec
1 warning(s) issued
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?

Answer 4

вот такую ошибку выдаёт

Answer 5

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