Ввести две матрицы mxn и nxk. Найти и вывести их произведение

[vika1997]

Ввести две матрицы mxn и nxk. Найти и вывести их произведение

Ввести 2 матрицы mxn и nxk. Найти и вывести их произведение

 

[Vladimir_S]

Ввести 2 матрицы mxn и nxk. Найти и вывести их произведение

И Вам тоже здравствовать!
Может быть снизойдёте до указания языка программирования (Pascal, Delphi)? Ну и заодно, если не сильно затруднит, формат элементов матриц. Целый? Вещественный? Без разницы?

 

[Евгений]

Для Pascal, элементы - целые числа.

const CSize= 10;
type Tmatr= array[1..CSize,1..CSize] of integer;
procedure Vvod(x,y: byte; var arg: Tmatr);
var i,j: byte;
begin
Randomize;
for i:=1 to x do
for j:=1 to y do
arg[i,j]:= Random(5)+1;
end;
procedure WriteMatr(x,y: byte; arg: Tmatr);
var i,j: byte;
begin
for i:=1 to x do begin
for j:=1 to y do
Write(arg[i,j]:4);
Writeln;
end;
Writeln;
end;
procedure UmnogMatr(x,y,z: byte; arg1,arg2: Tmatr;var arg: Tmatr);
var i,j,t: byte;
begin
for i:=1 to x do
for j:=1 to z do begin
arg[i,j]:=0;
for t:=1 to y do begin
arg[i,j]:= arg[i,j]+arg1[i,t]*arg2[t,j];
end;
end;
end;
var A,B,C: Tmatr;
m,n,k: byte;
begin
repeat
Write('m= '); Readln(m);
Write('n= '); Readln;
Write('k= '); Readln(k);
until (m>0) and (m<= Csize) and (n>0) and (n<= CSize)
and(k>0) and (k<=CSize);
Vvod(m,n,A);
Vvod(n,k,B);
UmnogMatr(m,n,k,A,B,C);
WriteMatr(m,k,C);
Readln;
end.

P.S Сильно не пинайте если что не так.