a77.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 28 行

var a,b,c:array[1..20,1..20] of integer;
    i,j,k,m,n,p:integer;
begin
write('m=');readln(m);
write('n=');readln(n);
write('p=');readln(p);
for i:=1 to m do
    for j:=1 to n do begin
                     write('a[',i,j,']=');
                     readln(a[i,j]);
                     end;
for i:=1 to n do
   for j:=1 to p do  begin
                     write('b[',i,j,']=');
                     readln(b[i,j]);
                     end;
for i:=1 to m do
    for j:=1 to p do
                     for k:=1 to n do
                        c[i,j]:=c[i,j]+a[i,k]*b[k,j];
for i:=1 to m do
    begin
    for j:=1 to p do write(c[i,j],' ');
    writeln;
    end;
readln;
end.