Курсовая работа: Теория вероятности и математическая статистика

BEGIN

Randomize;

ClrScr;

Write(' Введите количество элементов последовательности: ' );

ReadLn(n);

a:=-3; b:=6;

WriteLn;

WriteLn(' Исходная последовательность с нормальным ');

WriteLn(' законом распределения на интервале [-3;6]:');

mx:=(a+b)/2;

Dx:=30/12;

for i:=1 to n do

begin

v:=0;

for j:=1 to 30 do

begin

x:=Random;

v:=v+x;

end;

v:=(v-15)/Sqrt(Dx)*1.5+mx;

hn[i]:=v;

Write(hn[i]:10:2);

end;

WriteLn;

ReadLn; ClrScr;

{-------------Минимальное и максимальное значения диапазона----------}

xmin:=hn[1]; xmax:=hn[1];

for i:=1 to n do

begin