Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй -2 а...

Question

Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй -2 а каждый следующий сумме двух предыдущих

Answer 1

Var i:integer; 
 a:array [1..16] of integer; 
begin
a[1]:=1;
a[2]:=2;
 for i:=3 to 16 do   
a[i]:=a[i-1]+a[i-2]; 
for i:=1 to 16 do 
write(a[i],' '); 
end.

Comments

Это называется числа Фибоначчи.