С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.

Question

С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.

Answer 1

Var a:array[1..10000] of longint;

 i,n,k:longint;

begin

 readln(n);

 for i:=1 to n do

  read(a[i]);

 k:=1;

 for i:=1 to n do

  if a[i]<0<br>
   then

    k:=k*a[i];

 writeln(k);

 readln

end.