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

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