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 
  7. 		begin
  8. 			for j:=1 to b do
  9. 				begin
  10. 					if j=b then
  11. 						readln(d)
  12. 					else
  13. 						read(d);
  14. 					arr1[i,j]:=d;
  15. 				end;
  16. 		end;
  17. 	for i:=1 to b do
  18. 		begin
  19. 			for j:=1 to c do
  20. 			begin
  21. 				if j=c then
  22. 					readln(d)
  23. 				else
  24. 					read(d);
  25. 				arr2[i,j]:=d;
  26. 			end;
  27. 		end;
  28. 	for i:=1 to a do
  29. 		begin
  30. 		for j:=1 to c do
  31. 			begin
  32. 				arr3[i,j]:=0;
  33. 				for k:=1 to b do
  34. 					begin
  35. 						arr3[i,j]:=(arr3[i,j]) + ((arr1[i,k])*(arr2[k,j]));
  36. 					end;
  37. 				if j=c then
  38. 					writeln(arr3[i,j])
  39. 				else
  40. 					write(arr3[i,j],' ');
  41. 			end;
  42. 		end;
  43. end.
  44.  
Success #stdin #stdout 0s 9368KB
comments (?)
stdin
copy 
2 3 4
1 1 1
1 1 2
1 1 1 1
1 1 1 1
1 1 1 2
stdout
copy 
3 3 3 4
4 4 4 6
https://ideone.com/abMCXs
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!