Question

Este dat un masiv unidimensional cu n elemente. Calculati produsul elementelor negative de pe pozitii impare din masiv.

Answer 1

program produsNeg;

const nmax=100;

type masiv=array[1..nmax]of real;

var a: masiv;

   i, n: integer;

   produs: real;

begin

 write('n='); read(n);

 produs:=1;

 writeln('introdu elementele tabloului:');

 for i:=1 to n do

  begin

    read(a[i]);

    if (i mod 2=1) and (a[i]<0) then produs:=produs*a[i];

  end;

 writeln('produs= ', produs);

end.