ちょっと修正
>>861のだとn-1番目の数字を表示しちまう
10 DIM A(6)
20 FOR N=1 TO 5
30 INPUT A(N)
40 NEXT N
50 INPUT N
60 PRINT A(N)
70 END

10 DIM A(6)
20 N=1
30 INPUT A(N)
40 N=N+1
50 IF N<=5 THEN GOTO 30
60 INPUT N
70 PRINT A(N)
80 END