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

Question

Информатика

Таиса

20 июля, 03:28

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

+3

Ответы (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.