Вопрос по QBasic

[samCS]

помогите написать код на QBasic
программа должна выполнять следущие действия:
создать в случайном порядке последовательность чисел от 1 до 100
потом эту же последовательность выставить по порядку.
всем спасибо

[Sazary]

CONST N = 15
DIM a(N) AS INTEGER
DIM i, j, ti, tmp AS INTEGER
CLS
RANDOMIZE TIMER
FOR i = 1 TO N
a(i) = INT(RND * 100) + 1
PRINT USING "####"; a(i);
NEXT i
PRINT
PRINT
FOR i = 1 TO N - 1
 ti = i
 tmp = a(ti)
 FOR j = i + 1 TO N
  IF a(ti) > a(j) THEN
  ti = j
  END IF
 NEXT j
tmp = a(i)
a(i) = a(ti)
a(ti) = tmp
NEXT i

FOR i = 1 TO N
 PRINT USING "####"; a(i);
NEXT i
END