Question

подсчитать в одномерном массиве произведение нечетных отрицательных элементов
срочно! пожалуйста!

Answer 1

var

 a:array of integer;

 i,pr,n:integer;

 flag:boolean;

begin

 write('Kol-vo elementov: ');

 readln(n);

 setlength(a,n);

 pr:=1;

 for i:=0 to n-1 do

   begin

     a[i]:=random(101)-50;

     write(a[i]:4);

     if a[i] mod 2 = -1 then

       begin  

         pr:=pr*a[i];

         flag:=true;

       end;

   end;

 writeln;

 if flag then

   writeln('Proizved:',pr)

     else writeln('Error');

end.