мне кажется, оттталкивать нужно от этого
k:=0;
if a[i,j]<0 then
begin
k:=k+1;
b[i,k]:=a[i,j];
end;
а дальше у меня ничего не получается...
объясните пожалуйста!
k:=0;
if a[i,j]<0 then
begin
k:=k+1;
b[i,k]:=a[i,j];
end;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i,j]<0 then begin
b:=a[i,j]; a[i,j]:=a[i,1]; a[i,1]:=b;
k:=k+1;
end; end;