Question

PascalABC.NET
Составьте программу заполнения массива а [1..10] числами Фибоначчи. В последовательности Фибоначчи первый элемент равен нулю ,второй — единице, а каждый элемент, начиная с третьего, равен сумме двух предыдущих.​

Answer 1

var

 a:array [1..10] of integer;

 i:integer;

begin

 a[1]:=0;a[2]:=1;

 write(a[1],a[2]:4);

 for i:=3 to 10 do

   begin

     a[i]:=a[i-2]+a[i-1];

     write(a[i]:4);

   end;

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!