Среди введённых n чисел найти сумму всех чётных чисел. (В Pascal)

Question

Информатика

Куприян

24 августа, 18:22

Среди введённых n чисел найти сумму всех чётных чисел. (В Pascal)

+3

Ответы (1)

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

Вовуша · Answer 1

Program gt;

var n, i, a, s:integer;

begin

readln (n) ;

s:=0;

for i:=1 to n do

begin

read (a) ;

if (a mod 2=0) then s:=s+a;

end;

writeln (s) ;

end.