19
Mean and Standard Deviation ...
•Find m and s for array of Sample values
• program Sample_Stats;
•   config var n : integer = 100;
•   region     V = [1..n];
•
• procedure Sample_Stats();
•   var Sample : [V] float;
•      mu,sigma: float;
•   [V] begin
•         read(Sample);
•         mu := +<<Sample/n;
•         sigma := sqrt(+<<((Sample-mu)^2)/n);
•         write ("Mean: ", mu,"S.D. :", sigma);
•       end;
m = S Samplei
         n
s =  S(Samplei - m)2
           n
Basically, a direct translation into imperative form