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


Răspuns :

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:

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că resursele disponibile v-au fost de ajutor. Pentru întrebări sau asistență suplimentară, nu ezitați să ne contactați. Ne bucurăm să vă revedem în curând și vă invităm să ne salvați în lista de site-uri preferate!


RO Learner: Alte intrebari