Дан двумерный массив, найти столбец с минимальной суммой элементов, дополнительный массив не использовать

Sliverapok

дан двумерный массив найти стобец с минимальной суммой элементов дополнительный массив не использовать
2 ответа

Sliverapok

var
  m : array [1..100,1..100] of Integer;
  row, col, rows, cols, sum, n, minsum : Integer;
begin
  Write('Столбцов = '); ReadLn(cols);
  Write('Строк = '); ReadLn(rows);
  for row := 1 to rows do
    for col := 1 to cols do
      begin
        Write('[', row, ',', col, '] ='); ReadLn(m[row, col]);
      end;
  n := 0; minsum := MaxInt;
  for col := 1 to cols do
    begin
      sum := 0;
      for row := 1 to rows do sum := sum + m[row, col];
      if (n = 0) or (sum < minsum) then
        begin
          n := col; minsum := sum;
        end;
    end;
  WriteLn('Столбец с минимальной суммой - ', n);
end.


Sliverapok

JuriiMW, с учетом (12) minsum := MaxInt; условие (n = 0) в (17) лишнее, на случай когда все суммы равны MaxInt в (12) поменять n := 1;