отридцательные элементы столбцов, были отсортированы в самое начало эти столбцов
т.е. была вот такая матрица , а должна стать
1 2 3 1 -5 -9У меня вот такой код, но что то он как надо не работает(не сортирует) помогите ошибку исправить.
4-5 6 4 2 3
7 8-9 7 8 6
uses crt;
const n=2;
var
mas:array[1..n,1..n] of integer;
i,j,p,e:byte;
begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(i,'-я строка ',j,'-й столбец:');
readln(mas[i,j]);
end;
end;
writeln;
for p:=1 to n do begin
for i:=1 to n-1 do begin
for j:=n-1 downto i do begin
if mas[j,p]<0 then begin
if mas[j,p]<mas[j-1,p] then begin
e:=mas[j,p];
mas[j,p]:=mas[j-1,p];
mas[j-1,p]:=mas[j,p];
end;
end;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(mas[i,j],' ');
writeln;
end;
readln;
end.