fork download
  1. program ideone;
  2. var i,j,F,C:integer;
  3. p:array[1..20,1..20] of real;
  4. m:array[1..20,1..20] of integer;
  5. sf,sc:array[1..20] of integer;
  6. pf, pc : real;
  7. begin
  8. readln(F,C);
  9. for i := 1 to F do
  10. for j := 1 to C do
  11. read(M[i,j]);
  12. for i:= 1 to F do
  13. begin
  14. sf[i] := 0;
  15. for j := 1 to C do
  16. sf[i] := sf[i] + M[i,j];
  17. end;
  18. for j := 1 to C do
  19. begin
  20. sc[j] := 0;
  21. for i := 1 to F do
  22. sc[j] := sc[j] + M[i,j];
  23. end;
  24. for i := 1 to F do
  25. writeln(i, ' = ', sf[i]);
  26.  
  27. for j := 1 to C do
  28. writeln(j, ' = ', sc[j]);
  29.  
  30. for i := 1 to F do
  31. for j := 1 to C do
  32. begin
  33. pf := sf[i] / C;
  34. pc := sc[j] / F;
  35. writeln(i,' ', j, ' = ', sf[i], ' ', sc[j]);
  36. writeln(i,' ', j, ' = ', pf:8:3, ' ', pc:8:3);
  37. p[i,j] := M[i,j] - (pf+pc)/2;
  38. end;
  39. for i := 1 to F do
  40. begin
  41. for j := 1 to C do
  42. write(p[i,j]:7:3);
  43. writeln;
  44. end;
  45.  
  46.  
  47. end.
Success #stdin #stdout 0s 5292KB
stdin
2 5 8

stdout
1 = 0
2 = 0
1 = 0
2 = 0
3 = 0
4 = 0
5 = 0
1 1 = 0 0
1 1 =    0.000    0.000
1 2 = 0 0
1 2 =    0.000    0.000
1 3 = 0 0
1 3 =    0.000    0.000
1 4 = 0 0
1 4 =    0.000    0.000
1 5 = 0 0
1 5 =    0.000    0.000
2 1 = 0 0
2 1 =    0.000    0.000
2 2 = 0 0
2 2 =    0.000    0.000
2 3 = 0 0
2 3 =    0.000    0.000
2 4 = 0 0
2 4 =    0.000    0.000
2 5 = 0 0
2 5 =    0.000    0.000
  0.000  0.000  0.000  0.000  0.000
  0.000  0.000  0.000  0.000  0.000