bolyong[n_]:=ListLinePlot[Accumulate[RandomReal[{-1,1},n]]]

bolyong[1000]

lista[n_]:=Accumulate[RandomReal[{0,1},n]]

K=lista[10]
ListLinePlot[K]
b=Max[K]-Min[K]
a=Last[Accumulate[K]]
c=a/b