10 REM ***** STATAL ***** STATISTICS PROGRAM 20 REM: DATA MAY BE ENTERED BETWEEN LINES 1000 AN@ 9900 295 DIM A(1000) 300 PRINT:PRINT:PRINT "THESE ARE YOUR NUMBERS:" 305 LET I=1 310 READ E 315 S,S2=0 320 READ A(I) 330 IF E=A(I) THEN 370 340 PRINT A(I); 345 LET S=S+A(I) 347 LET S2=S2+A(I)*A(I) 350 LET I=I+1 360 GOTO 320 370 LET N=I-1 399 REM: BUBBLE SORT 400 PRINT 401 PRINT:PRINT:PRINT "HIGHEST TO LOWEST" 405 FOR I=1 TO N-1 410 FOR J=I+1 TO N 420 IF A(I)>A(J) THEN 0 430 LET T=A(I) 440 LET A(I)=A(J) 450 LET A(J)=T 460 NEXT J 465 PRINT A(I); 470 NEXT I 475 PRINT A(N) 500 PRINT:PRINT:PRINT "NUMBER OF VALUES IS";N 510 PRINT "SUM OF VALUES IS";S 520 PRINT "MEAN OF VALUES IS";S/N 530 PRINT "MEDIAN OF VALUES IS"; 540 IF N/2<>INT(N/2) THEN 570 550 PRINT (A(N/2)+A((N+2)/2))/2 560 GOTO 600 570 PRINT A((N+1)/2) 600 PRINT "THE STANDARD DEVIATION IS";SQR((N*S2-S*S)/N/(N-1)) 700 REM: DATA IN LINE 701 IS PART OF PROGRAM 701 DATA 1.E-35 1000 TA 244,182,112,2,198,10,314,169,18,38 9997 REM: DATA IN LINE 9998 IS PART OF PROGRAM 9998 DATA 1.E-35 9999 END