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

xmax:=hn[i];

if hn[i]<xmin then

xmin:=hn[i];

end;

WriteLn;

WriteLn(' Максимальное значение:',xmax:6:2);

WriteLn(' Минимальное значение: ',xmin:6:2);

ReadLn; ClrScr;

{--Генерирование модyля CB с нормальным законом распределения--}

a:=0; b:=6;

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

WriteLn(' законом распределения:');

WriteLn;

for i:=1 to n do

begin

hr[i]:=abs(hn[i]);

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

end;

WriteLn;

ReadLn; ClrScr;

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

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

for i:=1 to n do

begin

if hr[i]>xmax then

xmax:=hr[i];

if hr[i]<xmin then

xmin:=hr[i];

end;