Задано N целых чисел.Найти произведение четных чисел.( Использовать оператор цикла с параметром).
Задано N целых чисел.Найти произведение четных чисел.( Использовать оператор цикла с параметром).
Гость
Ответ(ы) на вопрос:
Гостьvar
m,n,i,a:integer;
begin
writeln('N=');
readln(n);
m:=1;
writeln('vvedite chisla');
for i:=1 to n do
begin
readln(a);
if (a mod 2)=0 then m:=m*a;
end;
if m=1 then m:=0;
writeln('otvet:',m)
end.
Не нашли ответ?
Похожие вопросы