Массив Фибоначчи

[JD Stive]

Для заданного значения n сформировать массив X(n) , являющийся последовательностью чисел Фибоначчи. Определить, насколько отличается положение элемента, наибо-лее близкого к среднему арифметическому значению массива X , от положения элемен-та, наиболее близкого к среднему геометрическому значению этого же массива.

[Levsha100]

Где же Вы найдете столько столько Фибоначчи, что бы массив сделать?

[Grag]

В какой среде нужно решить задачу? Паскаль, Delphi, Си?

[Chudo4258]

//последовательность ФИбониччи
X[1]:=1;
X[2]:=1;
S:=2;
P:=1;
for i:=3 to n do
begin
 X[i]:=X[i-1]+X[i-2];//последовательность ФИбониччи
 S:=S+X[i];//ср. арифм.
 P:=P*X[i];//ср. геом.
end;
S_sr:=S/n;//ср. арифм.
P_sr:=P/n;//ср. геом.
for i:=1 to n-1 do
 begin
  if (X[i]<=S_sr)and (X[i+1]>S_sr) //тут определили, между какими элем. находится S_sr
  if (X[i]<=P_sr)and (X[i+1]>P_sr)//тут определили, между какими элем. находится P_sr

// сейчас смотри к какому более близка, к i или i+1
end;