Последовательно вводится n-целых чисел. Найти сумму чётных чисел

Question

Информатика

Илюха

8 мая, 22:55

Последовательно вводится n-целых чисел. Найти сумму чётных чисел

+3

Ответы (1)

Знаете ответ на вопрос?

Михаля · Answer 1

Var x, n, i, s:integer;

begin

write ('Сколько будет чисел: ') ;

readln (n) ;

writeln ('Вводите числа по одному:') ;

for i:=1 to n do

begin

readln (x) ;

if x mod 2=0 then s:=s+x;

end;

writeln ('S=', s) ;

end.