Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй -2 а каждый следующий сумме двух предыдущих
Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй -2 а каждый следующий сумме двух предыдущих
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы