% zawalowcy
x=ones(1,135);
x(11:135)=0;
Nboot=100000;
A=zeros(1,Nboot);

for i=1:Nboot
%ankieta=x(ceil(100*rand(1,1500)));
ankieta=randsample(x,135,true);
A(i)=sum(ankieta)/135;
end
hist(A)
me=10/135
me2=mean(A);
lo=prctile(A,2.5);
hi=prctile(A,97.5);
disp(sprintf('przedzial ufnosci: %.3f - %.3f -%.3f\n',lo,me2,hi))