感謝LPH和chungyuandye兩位，
我自己也有想到一個方法，就是不要使用RandomInteger[]
改用UnitStep[Random[]-0.2]，也可以產生機率為0.8的1
再做這樣的試驗
(UnitStep[# - 0.2]) & /@ Table[Random[], {i, 1, 100}] // Total
只不過這樣的方法似乎沒辦法用在比較複雜的PDF上