вектора(паскаль)

[xxxartikxxx]

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

Текст матрицы:

var A:array[1..20,1..20] of real;
i,j,n:integer;
begin
writeln;
n:=2;
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:5,' ');
end;
writeln;
readln;
end.

[Stilet]

Вектор можно формировать так:

j=1;
for i:=1 to n do if a[i,i]<0 then begin x[j]:=a[i,i] inc(j);end;
for i:=1 to n do if a[i,i]>=0 then begin x[j]:=a[i,i] inc(j);end;

Где размер вектора х соответственно равен N.
Совет: N задавай константой, не делай динмассивом - все равно не разберешся

P.S. А чего ты N задал 2? У тебя же 20 элементов - сделай N константой и A:array[1..n,1..n] of real;

[xxxartikxxx]

Программа должна иметь такой вид?

var A:array[1..n,1..n] of real;
i,j,n:integer;
const n;
begin
writeln;
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:5,' ');
end;
Begin
j=1;
for i:=1 to n do if a[i,i]<0 then begin x[j]:=a[i,i] inc(j);end;
for i:=1 to n do if a[i,i]>=0 then begin x[j]:=a[i,i] inc(j);end;
end
writeln;
readln;
end.

From Stilet: Что, школоте код выделать спецтегами противопоказано? или религия следовать правилам форума не позволяет?

[Stilet]

Да такой. Добавляй теперь вывод на экран.

[xxxartikxxx]

Выдает ошибку...

[Sciv]

Потому что вот так надо:

const n=10;  {или другое число, какое Вам надо}
var A:array[1..n,1..n] of real;
x: array [1..n*n] of real;
i,j:integer;

Там у Вас ниже еще ошибки будут - в одном месте вместо := стоит =, в трех местах запяточия не стоят - как пить дать ругнется.

[xxxartikxxx]

А теперь все правильно?
код:
const n=2;
var A:array[1..n,1..n] of real;
x: array [1..n*n] of real;
i,j:integer;
begin
writeln;
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:5,' ');
end;
Begin
j:=1;
for i:=1 to n do if a[i,i]<0 then begin x[j]:=a[i,i] inc(j);end;
for i:=1 to n do if a[i,i]>=0 then begin x[j]:=a[i,i] inc(j);end;
wrireln(x[j]);
end
writeln;
readln;
end.

[Sciv]

почти. Еще один знак:

wrireln(x[j]);
end;

[xxxartikxxx]

Пишет ошыбку неверное выражение в
for i:=1 to n do if a[i,i]<0 then begin x[j]:=a[i,i] inc(j);end;
for i:=1 to n do if a[i,i]>=0 then begin x[j]:=a[i,i] inc(j);end;

[Stilet]

Раз школота мои предупреждения не читает, тема закрыта. следующая такая же будет удаляться без сожаления.