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

@Sliverapok · Регистрация: 18.05.2018

Студворк — интернет-сервис помощи студентам

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

@JuriiMW · 22.05.2018, 09:16

Pascal

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.

@bormant · 22.05.2018, 15:03

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

@Sliverapok 0 / 0 / 0 Регистрация: 18.05.2018 Сообщений: 12
		1
	Дан двумерный массив, найти столбец с минимальной суммой элементов, дополнительный массив не использовать 22.05.2018, 08:57. Показов 2202. Ответов 2 Метки нет (Все метки) дан двумерный массив найти стобец с минимальной суммой элементов дополнительный массив не использовать 0

@bormant Модератор 7539 / 4399 / 2785 Регистрация: 22.11.2013 Сообщений: 12,605 Записей в блоге: 1
	22.05.2018, 15:03	3
	JuriiMW, с учетом (12) minsum := MaxInt; условие (n = 0) в (17) лишнее, на случай когда все суммы равны MaxInt в (12) поменять n := 1; 0

Опции темы

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

Решение