Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/18: Рейтинг темы: голосов - 18, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 12.03.2012
Сообщений: 26
1

Вычислить сумму элементов каждого столбца массива. Упорядочить столбцы массива по убыванию сумм элементов столбцов.

16.03.2012, 22:14. Просмотров 3753. Ответов 1
Метки нет (Все метки)


Заполнить двумерный числовой массив В[5, 5] целыми числами. Вычислить сумму элементов каждого столбца массива. Упорядочить столбцы массива по убыванию сумм элементов столбцов.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2012, 22:14
Ответы с готовыми решениями:

Вычислить сумму элементов каждого столбца массива
Заполнить двумерный числовой массив В целыми числами. Вычислить сумму элементов каждого столбца...

Упорядочить столбцы матрицы по убыванию сумм их элементов.
дана вещественная матрица размером 4*4. упорядочить ее столбцы по убыванию сумм их элементов.

Для каждого элемента двухмерного массива вычислить сумму элементов столбцов с чётными номерами
Дан массив 4х6. Для каждого элемента двухмерного массива D вычислить сумму элементов колонок с...

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

1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
17.03.2012, 07:42 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
47
48
49
50
51
52
53
54
55
56
57
58
  const
    n=5;
  var
    a: array[1..n,1..n] of integer;
    b: array[1..n] of integer;
    i,j,sum,p,buf: integer;
begin
  randomize;
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
 
  writeln('summa elementov stolbov');
  for j:=1 to n do
  begin
    sum:=0;
    for i:=1 to n do
    begin
      sum:=sum+a[i,j];
    end;
    b[j]:=sum;
  end;
  for i:=1 to n do write(b[i]:3);
  writeln; writeln;
 
  writeln('poluchennii massiv');
  for i:=2 to n do
    for j:=n downto i do
      if b[j-1]<b[j] then
      begin
        buf:=b[j-1];        {сортируем массив с суммами элементов}
        b[j-1]:=b[j];
        b[j]:=buf;
 
        for p:=1 to n do      {сортируем непосредственно масси}
        begin
          buf:=a[p,j-1];
          a[p,j-1]:=a[p,j];
          a[p,j]:=buf
        end;
      end;
 
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2012, 07:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов
Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В...

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

Найти сумму элементов массива, упорядочить его по убыванию
Массив a n=4 задается пользователем с клавиатуры Найти сумму всех элементов массива a; sum ...

Одномерный массив из минимальных элементов столбцов исходного массива, номера которых делятся на четыре, и упорядочить его по убыванию
с клавиатуры вводится вещественная матрица MxN (M&lt;=11, N&lt;=9). Cоставить одномерный массив из...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.