fork download
copy 
  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
comments (?)
stdin
copy 
2
3
3
1 2 3
4 5 6
1 0 0
0 1 0
0 0 1
stdout
copy 
1 2 3 
4 5 6
https://ideone.com/8LbMp
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!