Дана матрица В размером m x n o Сформировать из нее вектор С, каждый элемент которого равен произведению отрицательных элементов соответствующих столбиков матрицы.
Дана матрица В размером 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;
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];
writeln;
for j:=1 to n do write(c[j]:7:2);
writeln;
end.
Не нашли ответ?
Похожие вопросы