Question

Fie dat un tablou liniar m,n:integer. De calculat produsul numerelor pare din tablou. Programul să fie rezolvat pe 3 nivele.
30 puncte dau

Answer 1

Răspuns:

program produsulParelor;

var t:array[1..100] of integer;

   p,i,n:integer;

begin

 { introducerea datelor }

 write('dati nr. de elemente a tabloului, n= '); read(n);

 writeln('introdu ',n,' elemente intregi a tabloului');

 for i:=1 to n do read(t[i]);

 { prelucrarea datelor }

 p:=1;

 for i:=1 to n do

   begin

     if t[i] mod 2=0 then p:=p*t[i];

   end;

 { afisarea rezultatului }

 writeln('produsul elementelor pare= ',p);

end.

Explicație: