Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них. (тема:...

Question

Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.
(тема: накопление суммы)

Comments

какой язык?

---

цикл

---

это не язык

---

Паскаль тогда

---

pascal?

---

супер

Answer 1

Var a,b,sum:integer;
       begin
sum:=0;
for a:=0 to 9 do begin
  read(b);
  if (b mod 2 =0) then sum:=sum+b;
end;
writeln('сумма  чётных чисел sum=',sum);
end.