Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент определяется из...

Question

Заполнить массив А [1:10]; А [1]=1 А [2]=2. Каждый следующий элемент определяется из отношения А [n]=(A [n-1] +A[n-2])/n. Вывести получившуюся последовательность на экран. В паскале

Answer 1

Const
   N = 10;
Var
   A:array[1..N] of real;
   i:integer;
Begin
A[1]:=1;
A[2]:=2;
For i:= 3 to N do
    A[i]:=(A[i-1]+A[i-2])/i;
For i:= 1 to N do
    Write(A[i]:0:3,' ')
End.

1.000 2.000 1.000 0.750 0.350 0.183 0.076 0.032 0.012 0.004