Завтра уже надо программа на basic! r /> из элементного массива а(20) сформируйте массив в, элементы которой по модулю больше некоторого значения с. ([a(1)]> c) надо программу и результат.заранее !

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