У меня задача есть вот такая задача: Дана квадратная матрица A(m x n), надо чтобы
отридцательные элементы столбцов, были отсортированы в самое начало эти столбцов
т.е. была вот такая матрица , а должна стать
1 2 3 1 -5 -9У меня вот такой код, но что то он как надо не работает(не сортирует) помогите ошибку исправить.
4-5 6 4 2 3
7 8-9 7 8 6
Var
T: Integer;
curr: byte;
...
for p := 1 to n do begin
curr := 0;
for i := 1 to n do begin
if mas[i, p] < 0 then begin
T := mas[i, p];
for j := i downto curr + 1 do
mas[j, p] := mas[j - 1, p];
inc(curr);
mas[curr, p] := T;
end;
end;
end;
Спасибо за помощь, усе работает