Работа с матрицами, сортировка

[sanji2010]

1)Упорядочить строки матрицы по неубыванию значений наименьших элементов строк.
2) В каждой строке матрицы найти сумму модулей элементов, расположенных после первого отрицательного элемента в этой строке.
3) Проверить, равны ли строки первая и последняя, вторая и предпоследняя и т. д..
4) Вычислить сумму элементов матрицы, выше побочной диагонали.

Если не трудно, помогите пожалуйста , буду очень признателен

[Вадим Мошев]

На чём это сделать надо? Каковы сроки? Могу помочь за вознаграждение. Согласны?

если согласны, пишите на адрес: VadimFreelance {<собаka>} yandex {тчк} ru

[sanji2010]

Извините, но вы сами поймите, студент, так что я надеюсь на доброту человеческую) Были бы деньги, я, естественно, заплатил бы, ибо работа большая, но, извините

[ZX Spectrum-128]

4. http://programmersforum.ru/showthread.php?t=70310

[sanji2010]

Спасибо большое за 4, больше всего правда интересуют 2 и 3, 1 кажется сделал

[ZX Spectrum-128]

2.

For i:=1 to n do
  Begin
     Sum:=0;
     For j:=1 to m do
        Begin
           If a[i,j]<0 then
              Begin
                 K:=j;
                 Break;
               End;
           End;
           For j:=k+1 to m do
              Sum:=sum+abs(a[i,j]);
        Writeln(sum);
   End;

Не проверял.

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

2.

Не проверял.

Позволю внести исправление:

For i:=1 to n do
  Begin
     Sum:=0;
     K:=m; {если в строке нет отрицательного, сумма модулей будет равна нулю}
     For j:=1 to m do
        Begin
           If a[i,j]<0 then
              Begin
                 K:=j;
                 Break;
               End;
           End;
           For j:=k+1 to m do
              Sum:=sum+abs(a[i,j]);
        Writeln('в строке ',i,' сумма =', sum);
   End;

p.s. так же не проверял...

[ZX Spectrum-128]

Ага, такие вещи я обычно вылавливал при тестовых прогонах, а вот так, чтобы сразу увидеть. Опыта маловато
Спасибо!


Опять на весы встать не могу
Поменяли бы уж, что ли