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

Найти сумму только четных чисел среди 10 введённых с клавиатуры
Гость
Ответ(ы) на вопрос:
Гость
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.                
Не нашли ответ?
Ответить на вопрос
Похожие вопросы