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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.