Определить и присвоить переменным KP, KN и KO значения, равные числу положительных, отрицательных и нулевых элементов массива x соответственно
Задан массив х={Хi}, i = 1,2...,n; n-число элементов массива (n<=24). Заданы переменные a, b. Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b (a автор: Vovan-VE DO
INPUT "Input size of source array (2 to 24): N = "; N
LOOP WHILE N < 2 OR N > 24
DO
INPUT "a = "; a
INPUT "b = "; b
LOOP WHILE a <= b
DIM X(1 TO N)
RANDOMIZE TIMER
L = 0
FOR i = 1 TO N
X(i) = FIX(RND * 101 - 50)
IF X(i) > a AND X(i) <= b THEN L = L + 1
NEXT
DIM Y(1 TO L)
PRINT "Array Y has "; L; " value."
KP = 0: KN = 0: K0 = 0
L = 1
FOR i = 1 TO N
IF X(i) > a AND X(i) <= b THEN
Y(L) = X(i)
L = L + 1
END IF
IF X(i) = 0 THEN
K0 = K0 + 1
ELSEIF X(i) < 0 THEN
KN = KN + 1
ELSE
KP = KP + 1
END IF
NEXT
PRINT "Negative: "; KN
PRINT "Zero: "; K0
PRINT "Positive: "; KP
Похожие статьи: