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

Answer 2

Для начала зададим массив из 10 элементов, где 5 из них будут заданы статически, а 5 - рандомно. В QBasic это можно сделать следующим образом:

DIM arr(10) AS INTEGER
DIM i AS INTEGER
RANDOMIZE TIMER

' Задаем статические элементы
arr(1) = 2
arr(2) = -3
arr(3) = 5
arr(4) = -7
arr(5) = 11

' Задаем рандомные элементы
FOR i = 6 TO 10
    arr(i) = INT(RND * 100) - 50
NEXT i

Теперь подсчитаем произведение этих элементов и количество положительных чисел в массиве:

DIM product AS INTEGER
DIM count AS INTEGER

product = 1
count = 0

FOR i = 1 TO 10
    product = product * arr(i)
    IF arr(i) > 0 THEN
        count = count + 1
    END IF
NEXT i

PRINT "Произведение элементов массива: "; product
PRINT "Количество положительных чисел в массиве: "; count

Этот код выведет на экран произведение элементов массива и количество положительных чисел в нем.