Question

Составьте программу и запишите на одном из языков программирования. Дан массив DAR размерностью 25. Найти сумму нечётных, положительных элементов данного массива.

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var dar:=ArrRandom(25,-99,99); dar.Println;
  Writeln('Сумма нечетных положительных равна ',
      dar.Where(t->t.IsOdd and (t>0)).Sum)
end.

Answer 2

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

pythonCopy code
def sum_odd_positive_elements(array):
    total_sum = 0
    for element in array:
        if element % 2 != 0 and element > 0:
            total_sum += element
    return total_sum

# Пример массива DAR размерностью 25
DAR = [2, -5, 7, -12, 9, 10, -3, 6, 15, -8, 1, 0, 4, 14, -11, 16, 13, 22, -19, -6, 17, 3, -9, 5, 8]

# Вызов функции и вывод результата
result = sum_odd_positive_elements(DAR)
print("Сумма нечетных, положительных элементов массива DAR:", result)

Этот код сначала объявляет функцию sum_odd_positive_elements, которая принимает массив в качестве аргумента и находит сумму всех нечетных, положительных элементов массива. Затем мы создаем массив DAR размерностью 25 и вызываем функцию для этого массива, выводя результат на экран.