Question

Дается последовательность из N чисел. Выведите сумму четных чисел среди них.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 1000). В следующей строке задаются N положительных целых чисел, каждая из которых меньше или равно 1000.
Формат выходных данных
Выведите ответ к задаче.

срочно плиз

​

Answer 1

Ответ:

program z1;

var a,s,n,i:integer;

begin

s:=0;

readln(n);

for i:=1 to n do

begin

read(a);

if a mod 2 = 0 then s:=s+a

end;

writeln(s)

end.