Pascal - В произвольной матрице отсортировать по убыванию элементы последовательности

[aleksch]

Помогите пожалуйста с решением этой задачи. У самого что-то ничего не выходит. Необходимо сделать на языке Pascal.

Условие: В произвольной матрице отсортировать по убыванию элементы последовательности, расположенные после второго отрицательного числа.

[Stilet]

Отсортировать как? Колонками, строками, суммами?
Попытки и наработки в студию.

[aleksch]

Сообщение от Stilet

Отсортировать как? Колонками, строками, суммами?

Колонками лучше отсортировать.

Сообщение от Stilet

Попытки и наработки в студию.

Увы ничего не осталось, всё, что пытался сделать оказалось в корне неверным. Удалил от досады Уже не первый день с этой программой мучаюсь.

[Stilet]

Ай тыж печалько какая...
Лови:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var a:array[1..10,1..10] of integer;
  i,j,k,l,q,w,e:integer;
begin            // Randomize;
  for i:=1 to 10 do begin
    k:=0;l:=-1;
    for j:=1 to 10 do begin
      a[i,j]:=5-random(10); write(a[i,j]:5);
      if (a[i,j]<0)and(k<2) then begin inc(k); l:=j;end;
    end; writeln;
    for q:=l to 10 do begin
      for w:=l to 10 do begin
        if a[i,q]<a[i,w] then begin e:=a[i,q];a[i,q]:=a[i,w];a[i,w]:=e;end;
      end;
    end;
  end;
  writeln;
  for i:=1 to 10 do begin
    for j:=1 to 10 do begin
      write(a[i,j]:5);
    end; writeln;
  end;
  readln;
end.