Завтра уже надо программа на 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
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