преобразование строк квадратной матрицы Опции

[18192123]

как можно перекинуть, например все отрицательные элементы, каждой строки квадратной матрицы в начало строк?

мне кажется, оттталкивать нужно от этого

k:=0;
if a[i,j]<0 then
   begin
    k:=k+1;
    b[i,k]:=a[i,j];
   end;

а дальше у меня ничего не получается...
объясните пожалуйста!

[мисс_граффити]

ну смотри:
сначала ты предполагаешь, что у тебя в начало не "согнано" ни одного отрицательного элемента.
k=0, то есть предполагаем, что первый обнаруженный отрицательный будем менять с самым первым эл-том в строке. Поменяли.
Теперь первый эл-т заведомо отрицательный, менять с ним нет никакого смысла. Увеличиваем k на единицу - чтобы в следующий раз при необходимости менять уже со вторым.

то есть изначально-то они не по порядку, а потом - по порядку.

[18192123]

ну смотри:
сначала ты предполагаешь, что у тебя в начало не "согнано" ни одного отрицательного элемента.
k=0, то есть предполагаем, что первый обнаруженный отрицательный будем менять с самым первым эл-том в строке. Поменяли.
Теперь первый эл-т заведомо отрицательный, менять с ним нет никакого смысла. Увеличиваем k на единицу - чтобы в следующий раз при необходимости менять уже со вторым.

то есть изначально-то они не по порядку, а потом - по порядку.

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

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;