Дана матрица В размером m x n
o Сформировать из нее вектор С, каждый элемент которого равен произведению отрицательных элементов соответствующих столбиков матрицы.

const m=3; n=4; b:array[1..m,1..n] of real= ((-3.3,-1.6,5.7,4.3),(7.6,15.2,-9.1,-3),(-8.6,-3.7,1.3,-0.1));var c:array[1..n] of real;i,j:integer;beginfor i:=1 to m do begin for j:=1 to n do write(b[i,j]:7:2); writeln;end;for j:=1 to n do c[j]:=1;for j:=1 to n do  for i:=1 to m do   if b[i,j]<0 then c[j]:=c[j]*b[i,j];writeln;for j:=1 to n do write(c[j]:7:2);writeln;end.