Răspuns:
program ProdusImpare;
var n,i,p:integer;
v: array[1..100] of integer;
begin
write('n= '); read(n);
writeln('Dati ',n,' numere naturale: ');
p:=1;
for i:=1 to n do
begin
read(v[i]);
if (v[i] mod 2 =1) then p:=p*v[i];
end;
writeln('Produsul imparelor = ',p);
end.
Explicație: