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

end;

Edit4.text:='{';

for i:=1 to m do

if t=ni[i] then begin

w:=xi[i];s1:=w;

Edit4.text:=Edit4.Text + s1;

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

else Edit4.Text:=Edit4.Text + '}';

end;

{mediana}

if m mod 2<>0 then begin

t:=(m+1)/2; t:=xi[t];

Edit6.Text:=t;

end

else begin

t:=m/2;k:=t;

t:=xi[k];

s1:=t;

t:=xi[k+1];

s2:=t;

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

end;

{Середнє}

ser:=0;

for i:=1 to n do