prettymarina2015
?>

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

Информатика

Ответы

ИП Жанара

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.Формат выходных данныхВыведите ответ к задаче. ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Aleksandrovich_Mitoyan1138
elvini857
Ladyby6224
perfectorg
mposte
fedserv
pavpe4198
mupmalino2653
vlsvergun59
fygasika
leeka152522
obar1
vikka30
shakmeev
Оксана