3
{ Program to demonstrate the PopnVariance function. }
8
TExArray = Array[1..100] of Float;
17
ExArray[i]:=(Random-Random)*100;
18
Writeln('Max : ',MaxValue(ExArray):8:4);
19
Writeln('Min : ',MinValue(ExArray):8:4);
20
Writeln('Pop. var. : ',PopnVariance(ExArray):8:4);
21
Writeln('Pop. var. (b) : ',PopnVariance(@ExArray[1],100):8:4);