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

[RIDDICK]

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



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

[RIDDICK]

да, спасиб, я уже туплю совсем ))

[-Smoke-]

Ммм.. Вот это пузырёк с флажком если кому то надо чёткий исходик.
Написал сам по теории, по мне этот проще чем указаный раньше.
Тип (Type Xmas = Array[1 .. n] Of Integer;) для этого случая.

Procedure Swap(var a,b: integer);
var tmp: integer;
begin tmp:=a; a:=b; b:=tmp end;

Procedure Bubble_flag(Var a: xmas; n: Integer);
Var i,j: integer; F: boolean;
Begin
     i:=2;
     F:=True;
while (i<=N) and F do
      begin
      F:=False;
      J:=n;
      while j>=i do
           begin
           if a[j-1]>a[j] then
              begin
              Swap(a[j-1],a[j]);
              f:=True;
              end;
           dec(j);
           end;
      inc(i);
      end;
End;