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

[Gust]

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

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

 

[NDV]

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.

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