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

Найти сумму каждого столбца матрицы и поменять столбцы местами по возрастанию их суммы

02.06.2019, 14:29. Показов 374. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Паскаль.Помогите чет не могу догнать. Найти сумму каждого столбца масива и поменять столбцы местами по возрастанию их суммы. случайными целыми числами от -100 до 100.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2019, 14:29
Ответы с готовыми решениями:

Вычислить сумму элементов каждого столбца матрицы и поменять местами столбцы с наибольшей и наименьшей суммой
Пожалуйста помогите решить, кому не трудно.. Дана целочисленная матрица A(N,M), где N=5 и M=5....

Найти произведение наименьших элементов каждого столбца матрицы и поменять местами 1-й и 3-й столбцы
Посмотрите пожалуйста, почему у меня в 3 столбце минимальный элемент неправильно находит . Вот...

Найти минимальный элемент каждого столбца матрицы и поменять его местами с элементом побочной диагонали
Уважаемые форумчане , прошу помочь с программой данного содержания: "Дана квадратная матрица, в...

Найти минимальный элемент каждого столбца матрицы и поменять его местами с элементом побочной диагонали
Уважаемые форумчане , прошу помочь с программой данного содержания: "Дана квадратная матрица, в...

1
201 / 119 / 85
Регистрация: 15.12.2016
Сообщений: 235
02.06.2019, 15:41 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
const
  n = 10;
  m = 8;
 
var
  arr: array[1..n,1..m] of integer;
  sum: array[1..m] of integer;
  min, k, tmp: integer;
 
begin
  writeln('Исходный массив:');
  for var i := 1 to n do
  begin
    for var j := 1 to m do
    begin
      arr[i,j] := random(-100, 100);
      write(arr[i,j]: 5);
      sum[j] += arr[i,j];
    end;
    writeln;
  end;
  
  for var i := 1 to m do
  begin
    min := 100;
    for var j := i to m do
      if sum[j] < min then begin min := sum[j]; k := j; end;
    tmp := sum[i];
    sum[i] := sum[k];
    sum[k] := tmp;
    for var j := 1 to n do
    begin
      tmp := arr[j,i];
      arr[j,i] := arr[j,k];
      arr[j,k] := tmp;
    end;
  end;
  
  writeln('Изменённый массив:');
  for var i := 1 to n do
  begin
    for var j := 1 to m do
      write(arr[i,j]: 5);
    writeln;
  end;
end.
0
02.06.2019, 15:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2019, 15:41
Помогаю со студенческими работами здесь

Поменять местами столбцы матрицы с максимальным и минимальным значением суммы
Дана матрица NxM. Вычислить сумму элементов для каждого столбца. Поменять местами столбцы с...

Поменять местами столбцы матрицы, чтобы элементы первой строки оказались упорядоченными по возрастанию
Поменять местами столбцы матрицы так, чтобы элементы первой строки оказались упорядоченными по...

Программа, меняющая местами столбцы заданной матрицы в зависимости от суммы элементов столбца
Здравствуйте , помогите , пожалуйста :/ Задача состоит в том, чтобы написать такую программу,...

Симметрично поменять местами все столбцы чисел относительно среднего столбца матрицы
Домашнее задание: двумерные массивы. 3. Написать программу, в которой создается двумерный...


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

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

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