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

[Fakalka]

Народ помогите решить плз. У меня большая проблема с матрицами

1)Дано натуральное число n. Получить действительную матрицу |a(i,j)|, i,j=l,...,n, для которого a(i,j)=l/(i+j).

2) Дана целочисленная матрица [a(i,j)], i,j=l,..,n. Получить b(l),..,b(n), где
b(i)=|a(i,l)|*...*|a(i,n)|.

[drummer]

Если l это единица, то
1)

Код: Выделить всё

var n,i,j:longint;
    a:array[1..100,1..100] of real;

begin
     readln(n);
     for i:=1 to n do
         for j:=1 to n do
            a[i,j]:=1/(i+j);
end.

2)

Код: Выделить всё

var n,i,j:longint;
    a:array[1..100,1..100] of longint;
    b:array[1..100] of real;

begin
   readln(n);
   for i:=1 to n do
      for j:=1 to n do
         read(a[i,j]);
    for i:=1 to n do
      begin
        b[i]:=abs(a[i,1]);
        for j:=2 to n do
          b[i]:=b[i]*abs(a[i,j]);
      end;

end.

[Fakalka]

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

[Fakalka]

Помогите с еще одной задачей плз.
Вот условие:

Пусть а(0)=1; а(k)=k*a(k-1)+1/k; k=1,2,.... Дано натуральное число n. Получить a(n).

Заранее спасибо!

[Хыиуду]

a:=0;
for i:=1 to n do a:=k*a+1/k;

[somewhere]

for i:=1 to n do a:=k*a+1/k;

For K:=1 to n do a:=k*a+1/k;

[BBB]

Сообщение от Хыиуду
for i:=1 to n do a:=k*a+1/k;

For K:=1 to n do a:=k*a+1/k;

Код: Выделить всё

for i:=1 to n do begin
  k:=i;
  a:=k*a+1/k;
end;

[drummer]

Ошибочки у Вас :-)

а(0)=1

Следовательно:

Код: Выделить всё

a:=1;
for k:=1 to n do a:=a*k+1/k;

[somewhere]

Ну хватит уже две строчки насиловать-то )))))

[Fakalka]

Мда задача в две сточки)
Всем спасибо за помощь!