ClearAll["Global`*"];

x=RandomReal[{0.1,π},100];

g[t_]:=((x[[Ceiling[t]]])/(Max[x]))

RevolutionPlot3D[
{g[t]((Sin[t])^2)+1,t},
{t,0,5},
{θ,0,2π}]