%mlodociani przestepcy

liczba=1e4;

wektor=zeros(80,1);
wekor(1:36)=1;
ponownie=[3 10 10 13];
srednie=max(abs(ponownie-9));
tosamo=max(ponownie)-min(ponownie);
for i=1:liczba
    for j=1:4
    wynik(j)=sum(randsample(wektor,20,'true'));
    end
    sukces=max(wynik)-min(wynik);
    sukces2=max(abs(wynik-9));
end
p=sum(sukces>=tosamo)/liczba
p1=sum(sukces2>=srednie)/liczba