Question

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

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var a := ArrRandomInteger(50, -50, 50);
  writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
  writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
  writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.

Answer 2

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

Вот пример кода на языке Python, который выполняет эту задачу:

def count_elements(vector):
    positive_count = 0
    negative_count = 0
    zero_count = 0

for element in vector:
        if element > 0:
            positive_count += 1
        elif element < 0:
            negative_count += 1
        else:
            zero_count += 1

return positive_count, negative_count, zero_count

vector = [1, -2, 0, 3, -4, 0, 5]
positive, negative, zero = count_elements(vector)

print("Количество положительных элементов:", positive)
print("Количество отрицательных элементов:", negative)
print("Количество нулевых элементов:", zero)

В этом примере функция `count_elements` принимает вектор в качестве аргумента и инициализирует переменные `positive_count`, `negative_count` и `zero_count` для отслеживания количества положительных, отрицательных и нулевых элементов соответственно. Затем она проходит по каждому элементу вектора и, используя условные операторы (`if`, `elif`, `else`), увеличивает соответствующие счетчики.

В конце кода выводятся результаты подсчета с помощью функции `print`.

Запустив этот код, вы получите следующий результат:

Количество положительных элементов: 3
Количество отрицательных элементов: 2
Количество нулевых элементов: 2

Таким образом, в данном примере вектор содержит 3 положительных элемента, 2 отрицательных элемента и 2 нулевых элемента.