0 / 0 / 0
Регистрация: 18.05.2018
Сообщений: 12
1

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

22.05.2018, 08:57. Показов 1974. Ответов 2
Метки нет (Все метки)

дан двумерный массив найти стобец с минимальной суммой элементов дополнительный массив не использовать
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2018, 08:57
Ответы с готовыми решениями:

Дан двумерный массив. Найти строку с минимальной суммой элементов, столбец с максимальной суммой элементов
а)Строку с минимальной суммой элементов б)Столбец с максимальной суммой элементов Дополнительный...

Дан двумерный массив. Найти строку с минимальной суммой элементов
Дан двумерный массив. Найти: строку с минимальной суммой элементов. Если таких строк несколько,...

Двумерный массив: поменять местами столбец с минимальной суммой элементов столбца с первым столбцом массива
3. Дан двумерный массив размером n x m. Поменять местами столбец с минимальной суммой элементов...

Двумерный массив. Найти столбец с наибольшей суммой элементов
Дана прямоугольная матрица. Найти столбец с наибольшей суммой элементов.

2
4874 / 2501 / 2287
Регистрация: 10.12.2014
Сообщений: 9,625
22.05.2018, 09:16 2
Лучший ответ Сообщение было отмечено Sliverapok как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6699 / 3919 / 2649
Регистрация: 22.11.2013
Сообщений: 11,269
Записей в блоге: 1
22.05.2018, 15:03 3
JuriiMW,
с учетом (12) minsum := MaxInt; условие (n = 0) в (17) лишнее, на случай когда все суммы равны MaxInt в (12) поменять n := 1;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2018, 15:03
Помогаю со студенческими работами здесь

Массив: В произвольно заданной матрице размера 4*6 определить строку с максимальной суммой элементов и столбец с минимальной суммой.
В произвольно заданной матрице размера 4*6 определить строку с максимальной суммой элементов и...

Двумерный массив, найти строку с максимальной и столбец с мининимальной суммой элементов
Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем строку с...

Дан массив 3 на 4, найти столбец с наименьшей суммой
вот есть программа но она считает строки с наименьшей суммой! program sum_mas2; var a:array of...

Преобразовать двумерный массив в одномерный (заменив каждый столбец суммой его элементов)
Преобразовать двумерный массив (8х11) в одномерный, заменив каждый столбец суммой его элементов.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru