Question

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

Answer 1

PascalABC.NET

Ответ:

• begin
• var a := ArrRandom(20,-9,9);
• a.Println;
• a.Count(x->(x>0)and(x.IsOdd)).Print
• end.

Пример работы:

Answer 2

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

# Заданный одномерный массив
arr = [2, 5, -6, 8, 10, -3, 4, 7]

# Инициализируем счетчики для положительных и четных элементов
count_positive = 0
count_even = 0

# Проходим по элементам массива
for num in arr:
    if num > 0:
        count_positive += 1
    if num % 2 == 0:
        count_even += 1

# Выводим результат
print("Количество положительных элементов в массиве:", count_positive)
print("Количество четных элементов в массиве:", count_even)

Программа начинает с инициализации двух счетчиков, `count_positive` и `count_even`, равных нулю. Затем она проходит по каждому элементу массива `arr`. Если элемент положителен (больше нуля), то увеличивается счетчик `count_positive`. Если элемент является четным (его остаток от деления на 2 равен нулю), то увеличивается счетчик `count_even`. В конце программы выводятся результаты подсчета.

Этот код можно адаптировать под другие языки программирования, если вам нужно выполнить аналогичную задачу на другом языке.