Придумать пример программы, в которой используется массив.

DECLARE SUB Sort (A() AS SINGLE, N AS INTEGER)
DIM Array1(1 TO 20)
RANDOMIZE TIMER
FOR I = 1 TO 20
   Array1(I) = RND
NEXT I
Sort Array1(), 20
FOR I = 1 TO 20
   PRINT Array1(I)
NEXT I
END
SUB Sort (A(), N%) STATIC
   FOR I = 1 TO N% - 1
      FOR J = I + 1 TO N%
         IF A(I) > A(J) THEN SWAP A(I), A(J)
      NEXT J
   NEXT I
END SUB

DECLARE SUB PRNTMAT (A!())
DIM A(0 TO 3,0 TO 3)
FOR I% = 0 TO 3
   FOR J% = 0 TO 3
      A(I%, J%) = I% + J%
   NEXT J%
NEXT I%
CALL PRNTMAT(A())
END
SUB PRNTMAT (A()) STATIC
   FOR I% LBOUND(A, 1) TO UBOUND(A, 1)
      FOR J% = LBOUND(A, 2) TO UBOUND(A, 2)
         PRINT A(I%, J%); " ";
      NEXT J%
   PRINT : PRINT
   NEXT I%
END SUB

SCREEN 8
DIM A%(1 TO 300)
x% = 30
y% = 40
CIRCLE (50, 50), 20, 14
PAINT (50, 50), 14
CIRCLE (300, 95), 150, 14
PAINT (300, 95), 14
GET (x%, y%)-(70, 60), A%
DO
''''''''PUT (x%, y%), A%, XOR
x% = RND *580
y% = RND * 175
PUT (x%, y%), A%
B! = 1 / 3
stop1! = TIMER
WHILE TIMER < (stop1! + B!)
WEND
LOOP WHILE INKEY$ = ""