Question

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

Answer 1

//PascalABC.NET 3.4.2

begin

 readarrinteger('Введите элементы массива:', readinteger('Введите размер массива:')).Where(x -> x > 0).Count.Print();

end.

Answer 2

Для решения этой задачи нужно пройти по каждому элементу массива и проверить, является ли он положительным. Если элемент положительный, увеличиваем счетчик положительных элементов на 1.

Вот пример кода на языке Python:

pythonCopy code
arr = [2, -3, 5, 0, -1, 7, -8, 9]
count_positive = 0

for num in arr:
    if num > 0:
        count_positive += 1

print(f"Количество положительных элементов: {count_positive}")

В этом примере мы объявляем массив arr и счетчик count_positive для подсчета положительных элементов. Затем мы проходим по каждому элементу массива с помощью цикла for. Внутри цикла мы проверяем, является ли текущий элемент num положительным, используя условный оператор if. Если да, то увеличиваем счетчик на 1.

В конце программы мы выводим количество положительных элементов на экран с помощью функции print(). В нашем примере вывод будет следующим:

Copy code
Количество положительных элементов: 4