Числа Фибоначчи в Паскале

[NAt]

Числа Фибоначчи в Паскале

здравствуйте, ув. программисты, подскажите пожалуйста с задачей:Дан одномерный массив. Вывести на экран только те элементы массива, индексы которых являются числами Фибоначчи.(1, 2, 3, 5, 8, 13, …).

 

[Vladimir_S]

Легко.
Ввод массива А организуйте сами.
Дальше так:

write(A[1],' ');
i1:=1;
i2:=1;
i3:=2;
while i3<=N do
 begin
  write(A[i3],' ');
  i1:=i2;
  i2:=i3;
  i3:=i1+i2;
 end;

 

[NAt]

спасибо большое)