Ответ 3 9 10 5.................................................................
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Println
end.
<u>Пример</u>
n= 8
=> 3.16 0 -12.7 6 -19 0.082 7 -3
4.0605
10. 4^4= 256
11.
F(1) = 1+3= 4
F(2) = 2+3=5
F(3)= 5+4=9
F(4)=9+5=14
F(5)= 14+9= 23
F(6)= 23+14=37
F(7) = 37+23=60 - ответ