Question

Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов на basic

Answer 1

CLS
INPUT "введи число элементов последовательности"; m
DIM a(m)
FOR i = 1 TO m
PRINT "введи"; i; "элемент последовательности";
INPUT a(m)
IF a(m) > 0 THEN x = x + 1
IF a(m) = 0 THEN y = y = 1
IF a(m) < 0 THEN z = z + 1
NEXT i
PRINT "количество положительных элементов последовательности равно"; x
PRINT "количество нулевых элементов последовательности равно"; y
PRINT "количество отрицательных элементов последовательности равно"; z
END

Answer 2

На языке Basic можно написать программу для подсчета количества отрицательных, положительных и нулевых элементов в заданной последовательности чисел. Вот пример такой программы:

vbnetCopy code
DIM N, X, NegativeCount, PositiveCount, ZeroCount
NegativeCount = 0
PositiveCount = 0
ZeroCount = 0

PRINT "Введите количество чисел в последовательности: "
INPUT N

FOR i = 1 TO N
    PRINT "Введите число ", i, ": "
    INPUT X

    IF X < 0 THEN
        NegativeCount = NegativeCount + 1
    ELSEIF X > 0 THEN
        PositiveCount = PositiveCount + 1
    ELSE
        ZeroCount = ZeroCount + 1
    END IF
NEXT i

PRINT "Количество отрицательных чисел: ", NegativeCount
PRINT "Количество положительных чисел: ", PositiveCount
PRINT "Количество нулевых чисел: ", ZeroCount

Эта программа сначала запрашивает у пользователя количество чисел в последовательности (переменная N). Затем она запускает цикл от 1 до N и на каждой итерации запрашивает у пользователя число (переменная X). Внутри цикла проверяется значение числа X: если оно меньше нуля, то увеличивается счетчик отрицательных чисел (переменная NegativeCount); если оно больше нуля, то увеличивается счетчик положительных чисел (переменная PositiveCount); если оно равно нулю, то увеличивается счетчик нулевых чисел (переменная ZeroCount).

По завершении цикла программа выводит количество отрицательных, положительных и нулевых чисел.