HOLA LETICIA COMO ANDAS?
AHI VA UN EJEMPLO PARA QUE TE QUEDE CLARO:
PROGRAM ProductoMatrices (input,output);
CONST
M = 4; {de orden 4}
N = 4; {de orden 4}
TYPE
RangoM = 1..M;
RangoN = 1..N;
MatrizNxN = ARRAY[RangoM,RangoN] OF integer;
MatrizMxM = ARRAY[RangoM,RangoN] OF integer;
VAR
Matriz1:MatrizNxN;
Matriz2:MatrizNxN;
Matriz3:MatrizNxN;
i,j,k,acum:integer;
BEGIN
writeln('Escriba los valores de la matriz 1:');
FOR i:= 1 TO M DO
BEGIN
FOR j:= 1 TO N DO
BEGIN
read(Matriz1[i,j]);
END;
readln;
END;
writeln('Escriba los valores de la matriz 2:');
FOR i:= 1 TO M DO
BEGIN
FOR j:= 1 TO N DO
BEGIN
read(Matriz2[i,j]);
END;
readln;
END;
FOR i:= 1 TO MDO
FOR j:= 1 TO N DO
BEGIN
acum:= 0;
FOR k:= 1 TO M DO
acum:=acum + Matriz1[i,k] * Matriz2[k,j];
Matriz3[i,j]:=acum;
END;
writeln('El producto de la matriz 1 con la matriz 2 es:');
writeln('Matriz 3:');
FOR i:= 1 TO MDO
BEGIN
FOR j:= 1 TO N DO
BEGIN
write(Matriz3[i,j]);
write(' ');
END;
writeln;
END;
readln;
Saludos.-
END.
