Source Code
5 PRINT "%M%O%V%I%N%G% %A%V%E%R%A%G%E"
6 PRINT "CALC MEAN/STD DEV"
10 LET K=0
100 PRINT "HOW MANY NOS.?"
110 INPUT N
120 DIM X(N)
200 LET K=K+1
210 PRINT "NEXT NUMBER?";
220 INPUT X(K)
230 PRINT X(K)
240 IF K<N THEN GOTO 200
250 CLS
300 LET SX=0
310 LET SS=0
320 PRINT "LAST ";N;" NUMBERS",,,,
330 FOR J=1 TO N
340 LET SX=SX+X(J)
350 LET SS=SS+X(J)**2
360 PRINT " ";X(J)
370 IF J>1 THEN LET X(J-1)=X(J)
380 NEXT J
400 PRINT ,,"MEAN = ";SX/N
410 PRINT ,,"STD DEV = ";SQR (SS/N-(SX/N)**2),,,,,
420 GOTO 210
500 SAVE "1004%0"
510 RUN
