Среди 10 чисел,введенных с клавиатуры,найти сумму тех,которые кратны 2.Программа в паскале)

Среди 10 чисел,введенных с клавиатуры,найти сумму тех,которые кратны 2. Программа в паскале)
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var a,i,sum: integer; begin sum:=0; for i:=1 to 10 do begin readln(a); if a mod 2=0 then sum:=sum+a; end; writeln(sum); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы