Напечатать все элементы массива, индексы которых являются числами Фибоначчи

@KardinalSlime · Регистрация: 05.12.2016

Author24 — интернет-сервис помощи студентам

Напечатать все элементы массива s, индексы которых являются числами Фибоначчи (1, 2, 3, 5, 8, 13, …).

@Cyborg Drone · 11.12.2016, 15:05

Pascal

uses crt;
const m = 100;
var s: array[1..m] of integer;
    i, t, f: integer;
begin
  randomize;
  writeln('Исходжный массив:');
  for i := 1 to m do
    begin
      s[i] := 999999 - random(1999999);
      write(s[i]:8)
    end;
  writeln;
  writeln('Элементы массива, индексы которых являются числами Фибоначчи:');
  t := 1;
  f := 1;
  repeat
    writeln('s[', f:2, '] = ', s[f]:8);
    f := f + t;
    t := f - t
  until f > m
end.

@KardinalSlime · 12.12.2016, 10:38 **[ТС]**

Спасибо!

@KardinalSlime 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 20
		1
	Напечатать все элементы массива, индексы которых являются числами Фибоначчи 05.12.2016, 19:17. Показов 2153. Ответов 2 Метки нет (Все метки) Напечатать все элементы массива s, индексы которых являются числами Фибоначчи (1, 2, 3, 5, 8, 13, …). 0

@KardinalSlime 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 20
	12.12.2016, 10:38 [ТС]	3
	Спасибо! 0

Напечатать все элементы массива, индексы которых являются числами Фибоначчи

Решение