решение матрицы(паскаль)

[xxxartikxxx]

Добрый день/вечер/ночь!

Нуждаюсь в небольшой помощи. Я студент-заочник, на начитке были заданы заданя по программированию,и у меня есть некотырые проблемы
у меня не полутчаетса зделать одно задание:
Получить элементы квадратной матрицы А=|a i,j |, i,j=1, ..., n, a i,j = f(i,j),
где f(i,j) = -2 ( j / 2 - 3.1 ) ( i - 3.9 ) + 2.5 i j –10.

Заранее благодарен, Андрей.

[p51x]

проблемы в чем? простейший путь - два цикла и формула от индексов

[VIK_aka_TOR]

долго еще кроспостить будете?

[xxxartikxxx]

у меня просто программа не выходит(ошибку выбивает)

begin
 ClrScr;
 writeln;
 write('Input n=');
 read(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,']=',a[i,j]:6:5,' ');
 end;
 writeln;
 writeln;
 end;
 for i:=1 to n do
 begin
 for j:=1 to n do
 begin
 write(',i,',',j,',a[i,j]:6:5,' ');
 end;
 writeln;
 end;

 end;

[Mad_Cat]

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

[xxxartikxxx]

Спасибо огромное