pascal 中一个关于矩阵乘法的问题
pascal 中一个关于矩阵乘法的问题
日期：2011-08-27 17:41:41 人气：1
var
a,b,c,i,j,k:longint;
x,y,f:array[0..2000,0..2000]of longint;
begin
read(a);
read(b);
read(c);
for i:=1 to a do
for j:=1 to b do
read(x[i,j]);
for i:=1 to b do
for j:=1 to c do
read(y[i,j]);
writeln(a,' ',c);
for i:=1 to a