С клавиатуры вводится сначала количество чисел, а затем сами числа. Найдите сумму всех чётных чисел последовательности.

Question

Амирмурат

20 октября, 08:21

+5

Ответы (1)

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

Мусагит · Answer 1

Var

i, x, sum, n: integer;

begin

read (n) ;

for i:=1 to n do begin read (x) ; if x mod 2=0 then sum:=sum+x end;

writeln (sum) ;

end.