Question

В одномерном массиве из 25 целочисленных элементов, определить: 1) сумму элементов, кратных 3; 2)кол-во эл-в, стоящих на местах кратных 5

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(25, -99, 99);

 a.Where(p -> p mod 3 = 0).Sum.Println;

 a[4::5].Count.Print

end.

Answer 2

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

pythonCopy code
# Создаем одномерный массив из 25 целочисленных элементов
array = [12, 5, 9, 18, 15, 7, 30, 21, 10, 6, 45, 3, 27, 8, 35, 42, 23, 50, 14, 17, 36, 25, 40, 11, 4]

# Инициализируем переменные для суммы элементов, кратных 3, и количества элементов, стоящих на местах кратных 5
sum_multiple_of_3 = 0
count_at_multiple_of_5 = 0

# Проходим по всем элементам массива
for index, value in enumerate(array):
    if value % 3 == 0:
        sum_multiple_of_3 += value
    
    if (index + 1) % 5 == 0:
        count_at_multiple_of_5 += 1

# Выводим результаты
print("Сумма элементов, кратных 3:", sum_multiple_of_3)
print("Количество элементов, стоящих на местах кратных 5:", count_at_multiple_of_5)

Вы можете вставить этот код в среду программирования на Python и запустить его. Он создаст массив из 25 целочисленных элементов, вычислит сумму элементов, кратных 3, и подсчитает количество элементов, стоящих на местах кратных 5.