Упорядочить столбцы матрицы по убыванию элементов побочной диагонали матрицы.
Код
const n=5;
type mas=array[1..n,1..n] of integer;
var a:mas;
i,j,k,q:integer;
sum:integer;
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;
Почему то работает через раз, при случайном заполнение массива, программа просто зависает! что делать? где ошибка? Подскажите плиз!