Решение задачи Matrix 20

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    int m, n, k, s;
    cin >> m >> n;
    int a[m][n];
    for(int i = 0; i < m; ++i){
        for(int j = 0; j < n; ++j)
            cin >> a[i][j];
    }
    for(int i = 0; i < n; ++i){
        s = 1;
        for(int j = 0; j < m; ++j)
            s *= a[j][i];
        cout << s << endl;
    }
    return 0;
}

import random
import numpy as np

M = random.randrange(2,7)
N = random.randrange(2,7)
K = random.randrange(0,N)
print("M = ",M,"; N = ",N)
a = np.zeros((M, N))

for i in range(M):
    for j in range(N):
        a[i][j] = random.randrange(1,5)
print(a)

b = a.prod(0)
print(b)
									

program Matrix20;
var
  a:array [1..10,1..10] of integer;
  Mult,M, N, i, j:Integer;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
  For j:=1 to N do
   begin
    Mult:=1;
    for i:=1 to M do Mult:=Mult*a[i,j];
    Writeln(j,' Proizvedenie:',Mult);
   end;
end.