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