Розв’язок задачі з Абрамова №697

Всі умови | Умова: Дано матриці А і В розміру k × m і m × l відповідно. Знайти добуток двої матриць А*В. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №697)

program pr697;

const
  k = 2;
  m = 3;
  l = 4;

var
  A : array[1..k, 1..m] of integer;
  B : array[1..m, 1..l] of integer;
  R : array[1..k, 1..l] of integer;
  i , j, z : integer; 
begin
  //enter A
  for i := 1 to k do
  for j := 1 to m do
  begin
    write('A[',i,',',j,'] = '); readln(A[i, j]);
  end;
  
  //enter B
  for i := 1 to m do
  for j := 1 to l do
  begin
    write('B[',i,',',j,'] = '); readln(B[i, j]);
  end;
  
  //find result
  for i := 1 to k do
  for j := 1 to l do
  begin
    R[i, j] := 0;
    for z := 1 to m do
    begin
            R[i, j] := R[i, j] + A[i, z] * B[z, j];
        end;
    end;
    
    //write result
    writeln('');
    for i := 1 to k do
  for j := 1 to l do
  begin
    writeln('R[',i,',',j,'] = ', R[i, j]);
    end;
  
  readln;
end.