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

k:=k-1;

end;

{об'єм вибірки}

xi:=n;

edit5.Text:=xi;

if typ=true then begin

w := VarArrayCreate([0,n], varDouble);

for i:=1 to n do

w[i]:=Form1.StringGrid1.Cells[i,0];

{об'єм ряду вибірки}

for i:=1 to n do

if w[i]<>-666 then begin

m:=m+1;

if i<>n then

for j:=i+1 to n do

if w[i]=w[j] then

w[j]:=-666;

end;

xi := VarArrayCreate([0,m], varDouble);

ni := VarArrayCreate([0,m], varInteger);

wi := VarArrayCreate([0,m], varDouble);

sn:=0;

sx:=0;

k:=0;

for i:=1 to n do