Question

Составить программу : дан массив из N элементов, найди сумму элементов , кратных 3 ..

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Сумма элементов, кратных 3, равна ',a.Where(x->x mod 3 =0).Sum)
end.

Answer 2

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

def sum_of_multiples(arr):
    total = 0
    for num in arr:
        if num % 3 == 0:
            total += num
    return total

# Пример использования программы
array = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
result = sum_of_multiples(array)
print("Сумма элементов, кратных 3:", result)

В данном примере, функция `sum_of_multiples` принимает массив `arr` в качестве аргумента и итерируется по каждому элементу массива. Если элемент кратен 3, то он добавляется к переменной `total`. В конце функция возвращает сумму всех элементов, кратных 3.

В примере использования программы, мы создаем массив `array` и вызываем функцию `sum_of_multiples`, передавая этот массив в качестве аргумента. Результат выводится на экран.

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

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