Информатика, 9 класс

Program prim7; Var a: array[1..10] of integer; i: integer; Begin a[1]:=1; /задаём 1-й элемент массива/ a[2]:=1; /задаём 2-й элемент массива/ For i:=3 to 10 do a[i]:=a[i-2]+a[i-1]; /элемент:=сумма двух предыдущих эл-в/ writeln('Полученный массив: '); For i:=1 to 10 do write(a[i], ' ') End.