Составить программу суммы только четных чисел (числа целые) из последовательно вводимых чисел, можно осуществить ввод заказного количества чисел. Помогите, отдаю максимум баллов.
Составить программу суммы только четных чисел (числа целые) из последовательно вводимых чисел, можно осуществить ввод заказного количества чисел. Помогите, отдаю максимум баллов.
Гость
Ответ(ы) на вопрос:
Гостьvar a,n,s,i:integer;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do
begin
write('a',i,'='); readln(a);
if a mod 2 =0 then s:=s+a;
end;
writeln('s=',s)
end.
Пример работы программы:
n=5
a1=15
a2=8
a3=7
a4=6
a5=9
s=14
Не нашли ответ?
Похожие вопросы