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

Информатика

Ответить

Ответы

ИП Жанара

05.04.2021

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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