Pierwsze trzy liczby określają kolejno rozmiary macierzy \(m\), \(n\) i \(p\).
Dalsze \(m \times n\) liczb określa zawartość macierzy \(A\). Dane są wprowadzane kolejno wierszami.
Kolejne \(n \times p\) liczb określa zawartość macierzy \(B\). Dane są wprowadzane kolejno wierszami.

Odczytane dane są umieszczane w macierzach, których iloczyn program oblicza i wyprowadza na standardowe wyjście.

// Mnożenie macierzy
// Data: 26.01.2010
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

program mmultiply;

type
  NInt = array of integer; // typ tablic wierszy
  MInt = array of NInt;    // typ tablicy wskaźników

var
  A, B, C : MInt;
  m, n, p, i, j, k, s : integer;

begin

  // odczytujemy wymiary macierzy
  read(m, n, p);

  // tworzymy macierze o odpowiednich rozmiarach
  SetLength(A, m);
  SetLength(B, n);
  SetLength(C, m);

  for i := 0 to m-1 do
  begin
    SetLength(A[i], n);
    SetLength(C[i], p);
  end;

  for i := 0 to n-1 do SetLength(B[i], p);

  // odczytujemy dane dla macierzy A
  for i := 0 to m-1 do
    for j := 0 to n-1 do read(A[i][j]);

  // odczytujemy dane dla macierzy B
  for i := 0 to n-1 do
    for j := 0 to p-1 do read(B[i][j]);
  writeln;

  // mnożymy macierz A przez B i wynik umieszczamy w C
  for i := 0 to m-1 do
    for j := 0 to p-1 do
    begin
      s := 0;
      for k := 0 to n-1 do s := s+A[i][k]*B[k][j];
      C[i][j] := s;
    end;

  // wyprowadzamy wynik mnożenia w C
  writeln('C = A x B:');

  for i := 0 to m-1 do
  begin
    for j := 0 to p-1 do write(C[i][j]:6);
    writeln;
  end;

  // zwalniamy pamięć zajętą przez macierze
  for i := 0 to m-1 do
  begin
    SetLength(A[i], 0);
    SetLength(C[i], 0);
  end;

  for i := 0 to n-1 do SetLength(B[i], 0);
  SetLength(A, 0);
  SetLength(B, 0);
  SetLength(C, 0);

end.

// Mnożenie macierzy
// Data: 26.01.2010
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

#include <iostream>
#include <iomanip>

using namespace std;

int main()
{
  int **A, **B, **C, m, n, p, i, j, k, s;

  // odczytujemy wymiary macierzy
  cin >> m >> n >> p;

  // tworzymy macierze o odpowiednich rozmiarach
  A = new int * [m];
  B = new int * [n];
  C = new int * [m];

  for(i = 0; i < m; i++)
  {
    A[i] = new int[n];
    C[i] = new int[p];
  }

  for(i = 0; i < n; i++)
    B[i] = new int[p];

  // odczytujemy dane dla macierzy A
  for(i = 0; i < m; i++)
    for(j = 0; j < n; j ++)
      cin >> A[i][j];

  // odczytujemy dane dla macierzy B
  for(i = 0; i < n; i++)
    for(j = 0; j < p; j++)
      cin >> B[i][j];

  cout << endl;

  // mnożymy macierz A przez B
  // i wynik umieszczamy w C
  for(i = 0; i < m; i++)
    for(j = 0; j < p; j++)
    {
      s = 0;
      for(k = 0; k < n; k++)
        s += A[i][k]*B[k][j];
      C[i][j] = s;
    }

  // wyprowadzamy wynik mnożenia w C
  cout <<  "C = A x B:\n";

  for(i = 0; i < m; i++)
  {
    for(j = 0; j < p; j++)
      cout << setw(6) << C[i][j];
    cout << endl;
  }

  // zwalniamy pamięć zajętą przez macierze
  for(i = 0; i < m; i++)
  {
    delete [] A[i];
    delete [] C[i];
  }

  for(i = 0; i < n; i++)
    delete [] B[i];
  delete [] A;
  delete [] B;
  delete [] C;

  return 0;
}

' Mnożenie macierzy
' Data: 26.01.2010
' (C)2020 mgr Jerzy Wałaszek
'-----------------------------

Dim As Integer m, n, p, i, j, k, s

' odczytujemy wymiary macierzy
Open Cons For Input As #1
Input #1, m, n, p

' tworzymy macierze o odpowiednich rozmiarach
Dim As Integer A(1 To m, 1 To n), _
               B(1 To n, 1 To p), _
               C(1 To m, 1 To p)

' odczytujemy dane dla macierzy A
For i = 1 To m
  For j = 1 To n
    Input #1, A(i, j)
  Next
Next

' odczytujemy dane dla macierzy B
For i = 1 To n
  For j = 1 To p
    Input #1, B(i, j)
  Next
Next

Close #1

' mnożymy macierz A przez B i wynik umieszczamy w C
For i = 1 To m
  For j = 1 To p
    s = 0
    For k = 1 To n
      s += A(i, k)*B(k, j)
    Next
    C(i, j) = s
  Next
Next

' wyprowadzamy wynik mnożenia w C
Print "C = A x B:"

For i = 1 To m
  For j = 1 To p
    Print Using "######";C(i, j);
  Next
  Print
Next

End

# Mnożenie macierzy
# Data: 26.01.2010
# (C)2020 mgr Jerzy Wałaszek
# ---------------------------


# wyświetla macierz
# ------------------
def mprint(t, x):
    print(t)
    for i in x:
        for j in i:
            print("%6d" % j, end="")
        print()
    print()


# odczytujemy wymiary macierzy
arr = input().split()
m = int(arr[0])
n = int(arr[1])
p = int(arr[2])
# tworzymy macierze o odpowiednich rozmiarach
a = []
b = []
c = []
for i in range(m):
    arr = []
    for j in range(p):
        arr.append(0)
    c.append(arr)
# odczytujemy dane dla macierzy A
for i in range(m):
    s = input().split()
    arr = [0.0] * len(s)
    for j in range(len(s)):
        arr[j] = int(s[j])
    a.append(arr)
# odczytujemy dane dla macierzy B
for i in range(n):
    s = input().split()
    arr = [0.0] * len(s)
    for j in range(len(s)):
        arr[j] = int(s[j])
    b.append(arr)
print()
# mnożymy macierz A przez B
# i wynik umieszczamy w C
for i in range(m):
    for j in range(p):
        s = 0
        for k in range(n):
            s += a[i][k] * b[k][j]
        c[i][j] = s
# wyprowadzamy wynik mnożenia w C
mprint("C = A x B:", c)
# zwalniamy pamięć zajętą przez macierze
a = None
b = None
c = None
arr = None