Заполнить массив а [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.
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