Вычислить вектор, элементами которого являются произведения положительных элементов столбцов матрицы - Turbo Pascal

Формулировка задачи:

6. Дана целочисленная матрица A(N,M). Вычислить вектор В(M), элементами которого являются произведения положительных элементов столбцов матрицы.


textual

Код к задаче: «Вычислить вектор, элементами которого являются произведения положительных элементов столбцов матрицы - Turbo Pascal»

const m=3; n=4;
function Pr(a:array[1..n,1..m] of integer; j:integer):integer;
var i,p:integer;
begin
     p:=1;
     for i:=1 to n do
         if a[i,j]>0 then p:=p*a[i,j];
     pr:=p;
end;
var a:array[1..n,1..m] of integer;
    i,j:integer;
    b:array[1..m] of integer;
begin
     for i:=1 to n do
         for j:=1 to m do
         begin
              writeln('Введите a[',i,j,']');
              read(a[i,j]);
         end;
     for j:=1 to m do
         b[j]:=pr(a,j);
 
     writeln('Вектор B:');
     for i:=1 to m do
         write(b[i]:4);
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.533 из 5

Источник