Предмет: Информатика,
автор: antipovzahar5
Дается последовательность из N чисел. Выведите сумму четных чисел среди них.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 1000). В следующей строке задаются N положительных целых чисел, каждая из которых меньше или равно 1000.
Формат выходных данных
Выведите ответ к задаче.
срочно плиз
Ответы
Автор ответа:
0
Ответ:
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.
Похожие вопросы
Предмет: Русский язык,
автор: АняМалик
Предмет: Русский язык,
автор: Аноним
Предмет: Английский язык,
автор: polyakovaanna20
Предмет: Математика,
автор: kotoff2