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

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

if v[i]<>-666 then begin

k:=k+1;

xi[k]:=v[i];

ni[k]:=1;

if i<>n then

for j:=i+1 to n do

if xi[k]=v[j] then begin

ni[k]:=ni[k]+1;

v[j]:=-666;

end;

end;

sn:=0;sx:=0;

for i:=1 to m do begin

sn:=sn+ni[i];

sx:=sx+xi[i];

end;

s:=sx/m;

for i:=1 to m do

wi[i]:=ni[i]/sn;

{moda}