Теорія імовірностей та математична статистика

end;

{moda}

t:=ni[1];

for i:=1 to r-1 do

if t<=ni[i] then begin

t:=ni[i];

k:=i;

end;

Edit4.text:='{';

for i:=1 to r-1 do

if t=ni[i] then begin

s1:=xi[i]+sx/2;

Edit4.text:=Edit4.Text + s1;

if k<>i then Edit4.Text:=Edit4.Text + ','else Edit4.Text:=Edit4.Text + '}';

end;

{mediana}

if r-1 mod 2<>0 then begin

t:=r/2; s1:=w[t];

Edit6.Text:=s1;

end

else begin

t:=(r-1)/2;

s1:=xi[t+1]+sx-sx/2;

s2:=xi[t+1]+sx+sx/2;

Edit6.Text:='[' + s1 + ';' + s2 + ']';