Сортировка матрицы по целой части элементов строки Опции

[liash-7]

Необходимо отсортировать матрицу(пузырьком) по целой часть элеметов K-й строки(строку K задаём)
К примеру, есть матрица:

(1,5) (7,4) (8,1)

(5,1) (8,3) (3,3)

(9,1) (1,1) (0,5)

(4,3) (5,4) (5,2)

Пусть мы задаём K=3
Выписываем целую часть элементов 3-й строки:[9,1,0].После сортировки[0,1,9].Тогда столбцы,должны поменяться аналогично.Столбец,содержащий 0,5 идёт первым,1 идёт вторым,9 идёт третьим!

Помогите пожалуйста!

Сообщение отредактировано: liash-7 - 16.04.2007 20:55

[liash-7]

Что-то не так у меня распечатывается:Сначала выводится матрица 3х4 а потом 4х3!В чём проблема?Вот текст программы:

const
  n_rows = 4;
  n_cols = 3;

var
  arr: array[1 .. n_rows, 1 .. n_cols] of real;
  i, j, k, ii: integer;
  T: real;

begin
  write('k = '); readln(k);

  { Matrix do sortirovki }
  writeln('Ishodnaya matrix:');
  Randomize;
  for i:=1 to n_cols do
  for j:=1 to n_rows do
     arr[i,j]:=Random(50);

    for i:=1 to n_cols do
     begin
          for j:=1 to n_rows do
            write(arr[i,j]:4);
            writeln;
          end;

  { Sortirovka }
  for i := 1 to n_cols do
    for j := n_cols downto i + 1 do
      if trunc(arr[k, j - 1]) > trunc(arr[k, j]) then
        for ii := 1 to n_rows do begin
          T := arr[ii, j - 1]; arr[ii, j - 1] := arr[ii, j]; arr[ii, j] := T
        end;

  { Matrix posle sortirovki }
  writeln;
  writeln('Otsortirovannaya matrix:');
        begin

    for ii:=1 to n_rows do
     begin
          for j:=1 to n_cols do
            write(arr[ii,j]:4);
            writeln;
          end;
end;
end.

Сообщение отредактировано: liash-7 - 23.04.2007 12:45