переумножить в 2 матрицы 3X3

[gred]

Сообщение от _Dmitry

Результатом перемножения двух квадратных матриц a и b, размером [n x n] является матрица c, такого же размера, которая получается следующим образом:

for k:=1 to n do
  for i:=1 to n do
    for j:=1 to n do
      c[k,i]:=c[k,i]+a[k,j]*b[j,i];

Матрицу c не забудьте обнулить перед счетом.

a[k,j]*b[j,i] в этом он умножает эти 2 числа и записывает в новую матрицу
а надо умножить сложить както(см правило). Вы уж извините мож что то непонимаю напишите программу полностью

[SNUPY]

Извините вы наверно издиваетесь)))), т.к. как раз этот код делает всё как надо.

[_Dmitry]

А знак '+' вы не заметили ?????
Вот ваш пример, пост #8

var
  a,b,c: array[1..2,1..2] of integer;
  i,j,k,n: integer;

begin
  n:=2;
  a[1,1]:=2; a[1,2]:=0;
  a[2,1]:=1; a[2,2]:=3;

  b[1,1]:=3; b[1,2]:=1;
  b[2,1]:=8; b[2,2]:=2;

  c[1,1]:=0; c[1,2]:=0;
  c[2,1]:=0; c[2,2]:=0;

  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        c[k,i]:=c[k,i]+a[k,j]*b[j,i];

  for i:=1 to n do
    begin
      for j:=1 to n do
        write(c[i,j]:5);
      writeln;
    end;
  readln;
end.

[gred]

всё понял спс