Ребята, срочно помогите! завтра уже надо сдать!! программа на Basic!r /> из элементного...

CONST n = 20
DIM a(1 TO n) AS INTEGER, b(1 TO n) AS INTEGER
DIM c AS INTEGER, i AS INTEGER, j AS INTEGER
CLS
INPUT "Введите C: ", c
RANDOMIZE TIMER
PRINT "Массив А"
j = 0
FOR i = 1 TO n
   a(i) = INT(3 * c * RND) + 1
   PRINT a(i);
   IF a(i) > c THEN
      j = j + 1: b(j) = a(i)
   END IF
NEXT i
PRINT
PRINT "Массив B"
FOR i = 1 TO j
   PRINT b(i);
NEXT i

Тестовое решение:
Введите C: 4
Массив А
7 2 6 11 10 9 2 1 7 4 6 1 8 5 12 4 11 2 6 2
Массив B
7 6 11 10 9 7 6 8 5 12 11 6

Ребята, срочно помогите! завтра уже надо сдать!! программа ** Basic!r /> из элементного...