Технический форум - Программа построения 20-ти элементного целочисленного массива

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Программа построения 20-ти элементного целочисленного массива

Написать программу построения 20-ти элементного целочисленного массива, каждый элемент которого является числом Фибоначчи, номер которого совпадает с порядковым номером этого элемента в массиве.
Числа Фибоначчи — последовательность чисел, , где каждый последующий член равен сумме двух предыдущих, за исключением первых двух членов, которые равны единице.

Код:

var a: array [1..20] of integer;

i: integer;

begin

a[1]:=1;

a[2]:=1;

writeln(a[1]);

writeln(a[2]);

for i:=3 to 20 do

begin

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

write(a[i]);

end;

readln

end.

Где-то так...