Найти сумму только четных чисел среди 10 введённых с клавиатуры

Question

Найти сумму только четных чисел среди 10 введённых с клавиатуры

Answer 1

Program prog;
Uses crt;

var i,s,a: integer;

begin
s:=0;

for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);

End.
               

Comments

Мы ещё не прошли NUM

---

Это просто строка, которая выведется на экран. Если принципиально, то write('NUM',i,' = '); можно удалить из кода и ничего существенно не поменяется. Это для красоты.)

---

Может можно по проще а то 9 класс мы ещё такое не знаем

---

var i,s,a: integer;

begin
s:=0;
for i:=1 to 10 do
begin
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln(s);
end.

---

Спасибо