Dear Sean Clarke,
According to your help, I wrote the following commands but I think it does not work. Can you explain me please.
(Debug) In[28]:= NSolve[x^5 - x/10 - 1 == 0, x, Reals]
(Debug) Out[28]= {{x -> 1.01961}}
(Debug) In[29]:= NSolve[x^5 - x/5 - 1 == 0, x, Reals]
(Debug) Out[29]= {{x -> 1.03846}}
(Debug) In[30]:= NSolve[x^5 - 3 x/10 - 1 == 0, x, Reals]
(Debug) Out[30]= {{x -> 1.05661}}
(Debug) In[31]:= NSolve[x^5 - 2 x/5 - 1 == 0, x, Reals]
(Debug) Out[31]= {{x -> 1.0741}}
(Debug) In[43]:= Clear[x];
A[i_] := i/10;
Table[NSolve[x^5 - 2 x/5 - 1 == 0, x, Reals], {i, 1, 5}]
(Debug) During evaluation of In[43]:= SetDelayed::write: Tag List in {1/10,1/5,3/10,2/5,1/2,3/5,7/10,4/5,9/10,1}[i_] is Protected. >>
(Debug) Out[45]= {{{x -> 1.0741}}, {{x -> 1.0741}}, {{x ->
1.0741}}, {{x -> 1.0741}}, {{x -> 1.0741}}}