感谢LPH和chungyuandye两位，
我自己也有想到一个方法，就是不要使用RandomInteger[]
改用UnitStep[Random[]-0.2]，也可以产生机率为0.8的1
再做这样的试验
(UnitStep[# - 0.2]) & /@ Table[Random[], {i, 1, 100}] // Total
只不过这样的方法似乎没办法用在比较复杂的PDF上