fork download
copy 
  1. var
  2.     a,b,c,d,i,j,K:longint;
  3.     arr1,arr2,arr3:array[1..100, 1..100] of longint;
  4.     begin
  5.       readln(a,b,c);
  6.       for i:=1 to a do begin
  7.             for j:= 1 to b do begin
  8.             if j = b then readln(d)
  9.                    else 
  10.                    read(d);
  11.                    arr1[i,j]:=d;
  12.                    end;
  13.       end;
  14.       for i:= 1 to b do begin
  15.           for j:= 1 to c do begin 
  16.           if j = c then readln(d)
  17.           else
  18.           read(d);
  19.           arr2[i,j]:=d;
  20.           end;
  21.                   end;
  22.                   for i:= 1 to a do begin 
  23.                       for j:= 1 to c do begin 
  24.                       arr3[i,j]:=0;
  25.                       for k:= 1 to b do begin 
  26.                       arr3[i,j]:=(arr3[i,j])+((arr1[i,k])*(arr2[k,j]));
  27.                       end;
  28.                       if j = c then 
  29.                            writeln(arr3[i,j])
  30.                            else
  31.                            write(arr3[i,j], ' ');
  32.                            end;
  33.                            end;
  34.                            end.
  35.  
  36.  
  37.  
Runtime error #stdin #stdout #stderr 0s 9368KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
./prog: attempt to read past end of Input (error #454 at 402be3)
https://ideone.com/aHhBAV
language:
Pascal (gpc 20070904)
created:
4 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!