Advertisement
Dennnhhhickk

Untitled

Nov 28th, 2016
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 1000;
  10.  
  11. var
  12. i, j, m, n, k, min, mini, minj, min1, mini1, minj1: Integer;
  13. a: array [0..MAXIN, 0..MAXIN] of integer;
  14. dp, dp1: array [0..MAXIN, 0..MAXIN] of int64;
  15. sumr, sumstr: array [1..MAXIN] of int64;
  16.  
  17. function findr(n1, n: integer): int64;
  18. var
  19. sum: int64;
  20. i: integer;
  21. begin
  22. sum := 0;
  23. for i := 1 to n do
  24. sum := sum + a[n1][i];
  25. findr := sum;
  26. end;
  27.  
  28. function findstr(n1, m: integer): int64;
  29. var
  30. sum: int64;
  31. j: integer;
  32. begin
  33. sum := 0;
  34. for j := 1 to m do
  35. sum := sum + a[j][n1];
  36. findstr := sum;
  37. end;
  38.  
  39. begin
  40. assign(input,'input.txt');
  41. reset(input);
  42. assign(output,'output.txt');
  43. rewrite(output);
  44.  
  45. read(n, m);
  46.  
  47. for i := 1 to n do
  48. for j := 1 to m do
  49. Read(a[i][j]);
  50.  
  51. for i := 1 to n do
  52. sumr[i] := findr(i, n);
  53.  
  54. for j := 1 to m do
  55. sumstr[j] := findstr(j, m);
  56.  
  57. for i := 1 to n do
  58. begin
  59. for j := 1 to m do
  60. begin
  61. dp1[i][j] := sumr[i] + sumstr[j] - a[i][j];
  62. end;
  63. end;
  64.  
  65. Min1 := dp1[1][1];
  66. mini1 := 1;
  67. minj1 := 1;
  68.  
  69. for i := 1 to n do
  70. for j := 1 to m do
  71. if (dp1[i][j] < min1) then
  72. begin
  73. Min1 := dp1[i][j];
  74. mini1 := i;
  75. minj1 := j;
  76. end;
  77.  
  78. Writeln(mini1 - 1, ' ',minj1 - 1);
  79.  
  80. Readln;
  81. readln;
  82.  
  83. close(input);
  84. close(output);
  85. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement