Question

QBasic. Задать массив из 10 элементов, 5 из которых задаются статически, а 5 рандомно. Подсчитать произведение этих элементов и количество положительных чисел в этом массиве.

Answer 1

CLS
RANDOMIZE TIMER
FOR i = 1 TO 5
A(i) = i
NEXT i
FOR i = 6 TO 10
A(i) = RND * 21 - 10
NEXT i
P = 1
PRINT "MASS(10): ";
FOR i = 1 TO 10
PRINT " "; A(i);
P = P * A(i)
IF A(i) > 0 THEN
k = k + 1
END IF
NEXT i
PRINT
PRINT "P = "; P
PRINT "k = "; k
END