Listing of file='25A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 189, program filename = '25A' 0005 PRINT 0010 PRINT "NO. OF DATA ELEMENTS" 0015 INPUT N 0020 N1=1/N 0030 M=1 0035 PRINT "DATA ELEMENTS 1/LINE" 0040 FOR I=1 TO N 0050 INPUT A 0060 M=M*A^N1 0070 B=B+LOG(A)^2 0080 NEXT I 0090 S=EXP(SQR(B/(N-1)-(N/(N-1))*(LOG(M))^2)) 0100 PRINT "GEOMETRIC MEAN IS:";M 0110 PRINT "GEOMETRIC STANDARD DEVIATION IS:";S 0999 END