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

Question

Информатика

Галка

27 июня, 22:35

Среди введённых 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.