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

Question

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

---

Answer 1

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;
begin
for 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];<br>writeln;
for j:=1 to n do write(c[j]:7:2);
writeln;
end.