Решено, исходные данные:
<em>a(1)=0 a(2)=1</em>
<em>a(n+2)=a(n+1)</em><span><em>-a(n)</em>
<em>Найди a(885)</em>
<em>Внимание: скобка означает число в нижнем индексе.</em>
Решаем, исходим сразу от наибольшего числа:
</span><em>a(885)=a(884)-a(883)=a(883)-a(882)-a(883)=a(882)
</em>В чем фокус-покус. Сначала мы применили формулу по отношению к числу<em>a(885)</em><span>, а потом к числу </span><em>a(884)</em><span>, из чего получилось равенство </span><em>a(885)=a(882)</em>
Тем самым, мы можем утверждать, что числа в последовательностях будут совпадать каждые 885-882=3 раза. 885 кратно 3, следовательно ищем наименьшее общее кратное число, оно равно 3. Следовательно a(885)=a(3)
<span>Находим </span><em>a(3)</em><span> из формулы:</span><em> a(3)=a(2)-a(1)=1-0=1</em><span>, следовательно </span>a(885)=1
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.