Question

Информатика. 9 класс Заполнить массив А[1..10] так, чтобы первый элемент был равен 1, второй-2, а каждый следующий - сумме двух предыдущих. Заранее спасибо ♡•♡

Answer 1

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