Составить программу для вычисления произведения отрицательных элементов массива А=(а1,а2,,…,аn).
Например: А=(-2,6,8,-45,0,23,5,43,-8)

//Pascal ABC.NET 3.1 сборка 1219Const n=10;Var ar:array[1..n] of integer; i,p:int64;begin randomize; p:=1; writeln('Array:'); for i:=1 to n do  begin   ar[i]:=random(-10,10);   write(ar[i]:4);   if ar[i]<0 then p:=p*ar[i];  end; writeln; write('Res:',p);end.Пример работы программы:Array:  -4  -9  -6   3   6   2  -3   0  -9  -3Res:17496

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a:=ReadArrInteger(ReadInteger('n='));  Writeln('Произведение отрицательных: ',    a.Where(x->x<0).Aggregate(BigInteger(1),(x,p)->x*p))end.Тестовое решениеn= 9-2 6 8 -45 0 23 5 43 -8Произведение отрицательных: -720