Moabpasav
4 год назад
Дается последовательность из N чисел. Выведите сумму четных чисел среди них.Формат входных данныхПервая строка входного файла содержит целое число N (1 <= N <= 1000). В следующей строке задаются N положительных целых чисел, каждая из которых меньше или равно 1000.Формат выходных данныхВыведите ответ к задаче. плиз
ОТВЕТЫ
Kina
Nov 13, 2020
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.
421
Смежные вопросы:
