Question

Scrieti un program pascal care citeste un nr natural n si un vector n numere intregi si agiseaza produsul elementelor impare din vector .


Am test

Answer 1

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: