24/04/14 14:58:32.36 L/3YUpCZ0.net
sim := (
n0=10000;
n=n0;
n20=20;
n10=10;
count=1;
atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]];
While[atari==0,n-=20;count++;atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]];
li={count,atari}
)
k=10^5
re=Table[sim,k]
p=2500
a=1000000
balance=Table[-p*n10*re[[i,1]]+re[[i,2]]*a,{i,k}]
Mean[balance]
Median[balance]