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*
Комментарий*

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

marysya60
stepa19806966
balabina-Olesya
fancy-decor67
oksanakv1950
vasenkova1981
uttgroup
elenalukanova
Pavlushina-Novikova
natkul22
cheberyako2013
Dom540703174
shalunovroman
Анатольевна
dobrovolsky-tmz1