population c$($rep $(1,10000),$rep$(0,5000)$

samples$\_$ofc$()$

for in $c(1$:$5000)\{$

sum$($sample$($population$,20))/20$

samples$\_$ofc$($samples$\_$of$\_20,$ x$)$

$\}$

barplot$($table$($samples$\_$of$\_20))$

Run the above code and use $[]$ to list all the means in your $5,000$ samples of $20$ that are between $0\mathrm{.}7$ and $0\mathrm{.}8$