Матричная задачка на паскале. Опции

[Katenok8777]

Задача такая: Дана матрица А (m.n). Надо из матрицы А сделать матрицу B так,чтобы все столбцы матрицы А были упорядочены по убыванию максимальных элементов.Заранее спасибо. Пршограмма на паскале должна быть.

[volvo]

Алгоритм такой:
1. Описываешь массив Max размером N (я правильно понимаю, что это - число столбцов? )...
2. В каждый элемент этого массива заносишь максимум соответствующего столбца матрицы A...
3. Копируешь всю матрицу A в матрицу B...
4. Сортируешь матрицу В вместе с массивом Max любым алгоритмом сортировки (для примера - "пузырьком") примерно так, как это было сделано здесь: задачка на двумерный массив, только вместо

If mx[Pred(j)][k] > mx[j][k] Then Begin
  T := mx[Pred(j)]; mx[Pred(j)] := mx[j]; mx[j] := T
End;

делать так:

If max[Pred(j)] > max[j] Then Begin
  Tint := max[Pred(j)]; max[Pred(j)] := max[j]; max[j] := Tint {Tint: integer}
  T := B[Pred(j)]; B[Pred(j)] := B[j]; B[j] := T {T: TColumn}
End;