Задано N целых чисел. Найти произведение четных чисел. (Использовать оператор цикла с параметром).

Question

Информатика

Варсонофий

20 сентября, 11:06

Задано N целых чисел. Найти произведение четных чисел. (Использовать оператор цикла с параметром).

+2

Ответы (1)

Знаете ответ на вопрос?

Нинуша · Answer 1

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.