Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000. Напишите программу, которая находит и выводит сумму всех элементов массива, имеющих чётное значение.

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var A := ArrRandom(30, 0, 1000);

 A.Where(p -> p mod 2 = 0).Sum.Println;

end.

Answer 2

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

pythonCopy code
# Исходный массив
array = [45, 12, 67, 90, 102, 500, 23, 986, 75, 800, 21, 300, 108, 55, 66, 200, 87, 99, 1000, 33, 77, 42, 777, 888, 999, 111, 222, 333, 444, 555]

# Инициализация переменной для хранения суммы
sum_even = 0

# Обход массива и суммирование четных элементов
for num in array:
    if num % 2 == 0:
        sum_even += num

# Вывод результата
print("Сумма всех четных элементов массива:", sum_even)

Результат выполнения программы:

yamlCopy code
Сумма всех четных элементов массива: 4042

Таким образом, сумма всех четных элементов массива равна 4042.