Вектор

[xxxartikxxx]

Помогите решить задачу

Из матрицы A получить компоненты вектора X={xi}, i=1,2,...,n, в качестве вектора принять главную диагональ матрицы , которая преобразована следующим образом: в начале каждой строки должны быть ее неотрицательные элементы, а в конце - отрицательные элементы (с сохранением порядка следования тех или иных элементов).

код матрицы:

program matrx;
type
Matr=array[1..20,1..20]of real;
var
i,j,n:integer ;
a:Matr;
begin
writeln;
writeln('vedite n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j] := -2 * (j / 2 - 3.1) * (i - 3.9) + Exp(2.5*Ln(i * j))- 10;
write('a[',i,',',j,']=',a[i,j]:6:2,' ');
end;
writeln;
readln;
end.

[BDA]

program matrx;

const
  maxsize = 100;

type
  Matr = array[1..maxsize, 1..maxsize] of real;

var
  i, j, k, n: integer;
  tmp: real;
  a, b: Matr;

begin
  writeln;
  writeln('vedite n');
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := -2 * (j / 2 - 3.1) * (i - 3.9) + Exp(2.5 * Ln(i * j)) - 10;
      write(a[i, j]:10:2);
    end;
    writeln;
  end;
  b := a;
  for k := 1 to n do
    for i := 2 to n do
      if b[k, i] >= 0 then
      begin
        j := i - 1;
        while (j > 0) and (b[k, j] < 0) do
        begin
          tmp := b[k, j + 1];
          b[k, j + 1] := b[k, j];
          b[k, j] := tmp;
          dec(j);
        end;
      end;
  writeln;
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(b[i, j]:10:2);
    writeln;
  end;
  readln;
end.

Добавил сортировку, правда, не уверен в ее целесообразности в этой задаче.
Используйте кнопочку # для оформления кода.
Думаю, что Вы легко сможете теперь получить вектор Х.

[xxxartikxxx]

Большое спасибо, вы мне очень помогли!