N=10000;wyniki=zeros(N,1);
for i=1:N
   wyniki(i) = sum(rand(100,1)>0.5);
end
os=min(wyniki):max(wyniki);
stem(os,hist(wyniki,os))
sum(wyniki>=57)
