сортировка матрицы Опции

[RIDDICK]

Дана матрица Х[9,10]. Упорядочить элементы столбцов матрицы по возрастанию, а сами столбцы по возрастанию произведения четных элементов столбцов (использовать сортировку ”пузырек с флажком”).



помогите пожалуйста реализовать в Pascal ...

[RIDDICK]

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

Uses
 crt;

const
 NN = 9;
 MM = 10;

Type
  Matrix =
   array [1..NN, 1..MM] of Integer;

var
 A : Matrix;

(* заполнение массива случайными элементами *)
Procedure RandMatr (var tmp: Matrix; r: integer);
Var
 n,m : word;
begin
 randomize;
 For n:=1 to NN do
   For m:=1 to MM do
     tmp[n,m]:=random®
end;

(* вывод массива *)
Procedure PrintMatr (var tmp: Matrix);
Var
 n,m : word;
begin
For n:=1 to NN do
  begin
  For m:=1 to MM do
    write(tmp[n,m]:2,'  ');
    writeln
  end
end;

(* сортировка *)
Procedure BubbleMatr (var tmp: Matrix);
var
    i,j,t,m :word;
    flagsort:boolean;

begin
  for m:= 1 to MM do
  begin
    repeat
      flagsort:=true;
      for i:=1 to NN-1 do
       if (tmp[i,m]>tmp[i+1,m]) then
        begin
           t:=tmp[i,m];
           tmp[i,m]:=tmp[i+1,m];
           tmp[i+1,m]:=t;
           j:=i;

           while (j>1)and (tmp[j-1,m]>tmp[j,m]) do
            begin
               t:=tmp[j,m];
               tmp[j,m]:=tmp[j-1,m];
               tmp[j-1,m]:=t;
               dec(j);
            end;
            flagsort:=false
        end;
   until flagsort
 end
end;

(* основная программа *)
begin
 Clrscr;
 RandMatr (A, 50);
 PrintMatr (A);
 writeln;
 BubbleMatr (A);
 PrintMatr (A);
 Readkey
end.