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

pascal

Объяснение:

var

  x, y, i: integer;

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

begin

 x := 1; y := 1; a[2] := 1;

 for i := 3 to 10 do

 begin

    y := x + y; x := y - x; a[i] := y;

 end;

 for i := 1 to 10 do Write(a[i], ', ');

end.