Question

Ребята, срочно помогите! завтра уже надо сдать!! программа на Basic!r /> из элементного массива А(20) сформируйте массив В, элементы которой по модулю больше некоторого значения С. ([A(1)]>C) надо программу и результат.заранее спасибо!

Answer 1

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