Создать одномерный массив из ненулевых произведений элементов каждого столбца

[Анна997]

Создать одномерный массив из ненулевых произведений элементов каждого столбца
через процедуры

[min@y™]

Админ!

37.png

Ну ты понял, да?

[Анна997]

нет

[ura_111]

каждого столбца чего? Задана еще и Матрица что-ли?

[newerow1989]

const n=5;
      m=10;
type tArr=array[1..m] of integer;
     tArr2=array[1..n,1..m] of integer;

procedure ReadA(var a:tArr2);
var i,j,k:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
end;

procedure Proiz(a:tArr2; var b:tArr);
var i,j:integer;
begin
   For j:=1 to m do
   begin
      b[j]:=1;
      For i:=1 to n do
         If a[i,j]<>0 then
            b[j]:=b[j]*a[i,j];
      Write(b[j]:3,'  ');
   end;
   Writeln;
end;

var a:tArr2;
    b:tArr;
begin
   ReadA(a);
   Writeln;
   Proiz(a,b);
   Readln;
end.