10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         SCORES:  COMPUTES MEAN, STANDARD DEVIATION AND STANDARD 
13  REM                  SCORES FOR TEST SCORES
14  REM         36136 (A408) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  REM STATISTICS PROGRAMS: MEAN, STANDARD DEVIATION, STANDARD SCORES
110  DIM X[100],D[100],Z[100],T[100]
120  LET X=0
130  READ N
140  FOR I=1 TO N
150  READ X[I]
160  LET X=X+X[I]
170  NEXT I
180  LET M=X/N
190  PRINT "MEAN = ";M
200  LET D=0
210  FOR I=1 TO N
220  LET D[I]=X[I]-M
230  LET D=D+D[I]^2
240  NEXT I
250  LET S=SQR(D/N)
260  PRINT "STANDARD DEVIATION = ";S
270  FOR I=1 TO N
280  LET Z[I]=D[I]/S
290  LET T[I]=10*D[I]/S+50
300  NEXT I
310  PRINT 
320  PRINT "SCORE","DEVIATION","Z-SCORE","T-SCORE"
330  PRINT "-----","---------","-------","-------"
340  FOR I=1 TO N
350  PRINT X[I],D[I],Z[I],T[I]
360  NEXT I
370  DATA 15
380  DATA 50,50,50,48,48,44,43,42,42,42,41,35,30,29,26
390  END 
