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

ser:=ser+p[i];

ser:=ser/n;

t:=ser; Edit15.Text:=t;

{Deviacia}

tx:=0;

for i:=1 to n do

tx:=tx+(p[i]-ser)*(p[i]-ser);

t:=tx;

Edit8.Text:=t;

{Variansa}

if n<>1 then sx:=tx/(n-1);t:=sx;

Edit9.Text:=t;

sx:=0;

{momenty}

for i:=1 to n do {1}

sx:=sx+p[i]-ser;

sx:=sx/n;

t:=sx;

Edit7.Text:=t;

tx:=tx/n;t:=tx; {2}

Edit12.Text:=t;

sx:=0;

for i:=1 to n do {3}

sx:=sx+(p[i]-ser)*(p[i]-ser)*(p[i]-ser);

sx:=sx/n;