Plot[x Cos[x],{x,0,20}]

min=FindMinimum[x Cos[x],{x,2}]

pt=Reverse[Cases[min,_?NumberQ,Infinity]]

Plot[x Cos[x],{x,0,20},Epilog->{PointSize[Medium],Point[pt]}]