Delphi Задача

[ДваДваВо7]

Народ помогите или подскажите как решить....

Пусть дана матрица A(n x m).Разработать программу,позволяющую упорядочить столбцы матрицы по возрастанию сумм элементов этого столбца.

[Don Karleone]

1) найти сумму элементов для каждого столбца и записать ее в другой массив
2) этсортировать этот массив и при перестановке его элементов обменивать местами соответствующие столбцы

[ДваДваВо7]

Сообщение от Don Karleone

1) найти сумму элементов для каждого столбца и записать ее в другой массив
2) этсортировать этот массив и при перестановке его элементов обменивать местами соответствующие столбцы

не понял((((А как в программе выглядеть это будет не можете написать?

[Don Karleone]

var
  A: array [1..n,1..m] of integer;
  B: array [1..m] of integer;
for j:=1 to m do
  begin
    sum:=0;
    for i:=1 to n do
      sum:=sum + A[i,j];
    B[j]:=sum;
  end;

подсчет суммы для каждого столбца и запись этих значений в массив B.
Теперь отсортировывайте массив B и если при этом будут меняться местами его элементы меняйте местами столбцы матрицы А с соответствующими индексами. Это вы сделаете сами.

ладно я сегодня добрый.

for i:=1 to m-1 do
  for j:=1 to m-i do
    if B[j] > B[j+1] 
      then
            begin
               C:=B[j];
               B[j]:=B[j+1];
               B[j+1]:=C;
               for k:=1 to n do
                 begin
                    C:=A[k,j];
                    A[k,j]:=A[k,j+1];
                    A[k,j+1]:=C; 
                 end;
            end;

Отсортирует по возрастанию. Если я конечно не ошибся

[artemavd]

В поиск. Тем про матрицы - навалом.