matrix_pascal.pas

Var
x,y,z,f:array [0..2,0..2] of integer;
n,i,j,k,m,u,valor, temp:integer;

begin
memo1.clear;

for i:=1 to 2 do
for j:=1 to 2 do
x[i,j]:= strtoint(inputbox('Caja de matriz','Valores de la matriz','0'));


for j:=1 to 2 do
for i:=1 to 2 do
y[i,j]:= x[i,j];

for i:=1 to 2 do
for j:=1 to 2 do
z[i,j]:=  strtoint(inputbox('Caja de matriz identidad','Valores de la matriz','0'));

for i:=1 to 2 do
for j:=1 to 2 do
begin
valor:= x[i,j]-z[i,j];
f[i,j]:= valor;
end;

//TENGO QUE HACER LA MULTPLICACION DE LAS MATRICES "Y" y de la "F" pero no se como


//Multiplicación.
for i:=0 to 2 do
  for j:=0 to 2 do
     temp = 0;
       for k:=0 to 2 do
             temp = temp + y[i,k] * f[k,j];
             C[i,j] = temp;