Написать программу (Delphi или Pascal) для вычисления минимального произведения отрицательных подряд идущих элементов одномерного массива.

Const n=10; var A: array [1 ... n] of integer; p, min, i, : integer; beginrandomize; for i: = 1 to n dobeginA[i]: = - 100 + random (200) ; write (A[i]: 5) ; end; writeln; min:=100000000; p:=1; for i:=1 to n doif A[i] < 0 then p:=p*A[i] else Begin if p< min then min:=p; p:=1; End; if pКомментировать