probs[n_] := Module[{tot, list},
list = Table[Binomial[n, m],  {m, 0, n}];
tot = Total[list];
list/tot
]

probs[4]

ListPlot[probs[20], PlotRange->All]

ListPlot[probs[200], PlotRange -> All]