Question

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

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.