100 DIM a(1000) ! Wc 110 LET n=10 120 DIM s(n) ! W{ 130 OPEN #1: NAME "data3.txt" 140 FOR i=1 TO 1000 150 INPUT #1:a(i) 160 NEXT i 170 CLOSE #1 180 RANDOMIZE 190 FOR t=1 TO 25 200 FOR i=1 TO n 210 LET s(i)=a(INT(RND*1000)+1) 220 NEXT i 230 LET x=0 240 LET x2=0 250 FOR i=1 TO n 260 LET x=x+s(i) 270 LET x2=x2+s(i)^2 280 NEXT i 290 LET m=x/n 300 LET v=x2/n-m^2 310 PRINT m,v,SQR(v) 320 NEXT t 330 END