Wolfram Cloud Page

In[]:=

data=RandomInteger[10,20]

Out[]=

{2,7,3,2,4,6,5,8,0,4,7,0,7,7,5,8,8,1,8,10}

In[]:=

N[Mean[data]]

Out[]=

5.1

In[]:=

Histogram[data,{1},AspectRatio->Automatic,GridLines->{None,Automatic},Epilog->{Thick,Red,Line[{{-1,Mean[BinCounts@data]},{10+1,Mean[BinCounts@data]}}]}]

Out[]=

Also show discrete “less than half” result