RosettaCodeData/Task/Create-a-two-dimensional-ar.../BASIC/create-a-two-dimensional-ar...

15 lines
299 B
Plaintext

10 PRINT "1ST DIMENSION: ";
20 INPUT D1
30 PRINT D1
40 PRINT "2ND DIMENSION: ";
50 INPUT D2
60 PRINT D2
70 DIM A(D1,D1)
80 PRINT "ARRAY CREATED"
90 LET X=1+INT (D1*RND)
100 LET Y=1+INT (D2*RND)
110 LET A(X,Y)=37
120 PRINT "ITEM ";X;", ";Y;" = ";A(X,Y)
130 CLEAR
140 PRINT "ARRAY DESTROYED"