Сортировка по элементам побочной линии, Матрицы n*n (n- нечетное) Опции

[mapblwka]

Обрыскала форум, нашла только обмен столбцов, но.. не помогает, прога виснет.

Упорядочить столбцы матрицы по убыванию элементов побочной диагонали матрицы.

Код

const n=5;
type mas=array[1..n,1..n] of integer;
var a:mas;
    i,j,k,q:integer;
    sum:integer;

Код

procedure sort(var a:mas);
var l:integer;
t:boolean;
begin
repeat
t:=true;
for k:=1 to n-1 do  begin
if a[n-k+1,k]>a[n-k,k+1] then
   begin
   t:=false;
   for i:=1 to n do
       begin
       l:=a[i,k];
       a[i,k]:=a[i,k+1];
       a[i,k+1]:=l;
       end;
   end;
end;
until t
end;

Почему то работает через раз, при случайном заполнение массива, программа просто зависает! что делать? где ошибка? Подскажите плиз!

[klem4]

выложи полностью код программы

может не

if a[n-k+1,k]>a[n-k,k+1] then

a

if a[n-k+1,k]>a[n-k+1,k+1] then

Сообщение отредактировано: volvo - 6.11.2006 16:28