% W próbce 200 osób 7 procent jest bezrobotnych.        
% Okre¶liæ 95\% przedzia³ ufno¶ci dla prawdziwej ¶redniej w populacji.
p0=7/200;
u=[zeros(1,193) ones(1,7)];
N=length(u);
N_rep=1e4;
p_rep=zeros(1,N_rep);
for i=1:N_rep
    x=randsample(u,N,true);
    p(i)=sum(x)/N;
end
gr=prctile(p,[2.5 97.5]);
disp(sprintf('proporcja i jej 95 proc przedzial ufnosci[%.3f %.3f %.3f]',gr(1),p0,gr(2)));
