p=rand(1,1);
while p==0 || p==1  %osetri okrajove pripady p=0, p=1;
p=rand(1,1)
end
p
v=rand(1,15)*100-50;
sv=sort(v)
n=length(sv);
d=ceil(p*n) %zdola
h=ceil((1-p)*n) %zhora

if (d+h)==n
    
    vysledok=(sv(d)+sv(h))/2
    pozn='bol pouzity aritmeticky priemer'
    
else
    
    vysledok=sv(d)
    % pozn='nebol pouzity aritmeticky priemer'
end




