listati da GWbasic

esci listagwbasic.htm

100 REM caso5
110 REM recine 172
120 REM vettore numeri casuali interi tra 1 e 100
130 INPUT"numero casuali<= 30 ";N
140 DIM A%(N)
150 FOR Y=1 TO N
160 A%(Y)=INT(RND(Y)*100+1)
170 NEXT Y
200 FOR I=1 TO N
210 PRINT A%(I);
220 NEXT I
300 END