fork download
  1. Program M_MULTIPLY;
  2. var
  3. i, j, k, Ia, Ja, Jb: integer;
  4. a, b, c: array [ 1..100, 1..100 ] of integer;
  5. begin
  6. readln( Ia );
  7. readln( Ja );
  8. readln( Jb );
  9.  
  10. for i:= 1 to Ia do
  11. begin
  12. for j:= 1 to Ja do
  13. read( a[ i, j ]);
  14. readln;
  15. end;
  16. for i:= 1 to Ja do
  17. begin
  18. for j:= 1 to Jb do
  19. read( b[ i, j ]);
  20. readln;
  21. end;
  22. for i:= 1 to Ia do
  23. for j:= 1 to Jb do
  24. for k:= 1 to Ja do
  25. c[ i, j ]:= c[ i, j ] + a[ i, k ] * b[ k, j ];
  26.  
  27. for i:= 1 to Ia do
  28. begin
  29. for j:= 1 to Jb do
  30. write( c[ i, j ], '');
  31. writeln;
  32. end;
  33. end.
  34.  
Success #stdin #stdout 0.01s 4232KB
stdin
2
3
3
1 2 3
4 5 6
1 0 0
0 1 0
0 0 1
stdout
123
456