Question

Дан целочисленный массив из 10 элементов.Написать программу ,находящую сумму элементов массива кратных 3 или 5?

Answer 1

Dim i As Integer 
Dim Massiv() As Integer
Dim Summ As Integer

For i =0 To  Massiv.Length - 1
      If  Massiv(i) Mod 2 = 0 Or  Massiv(i)  Mod 3 = 0 Then Summ +=  Massiv(i)       
  Next
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
 MsgBox(Summ)

Answer 2

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

1. Создать целочисленный массив из 10 элементов. 2. Заполнить массив случайными значениями. 3. Объявить переменную "сумма" и инициализировать ее нулем. 4. Пройти по каждому элементу массива в цикле. 5. Проверить, является ли текущий элемент кратным 3 или 5 с помощью оператора "if" и оператора "остаток от деления". 6. Если элемент кратен 3 или 5, добавить его значение к переменной "сумма". 7. Вывести значение переменной "сумма".

Пример кода на языке Python:

import random

# Создание и заполнение массива случайными значениями
arr = [random.randint(1, 100) for _ in range(10)]

# Инициализация переменной "сумма"
summa = 0

# Перебор элементов массива
for num in arr:
    # Проверка на кратность 3 или 5
    if num % 3 == 0 or num % 5 == 0:
        # Добавление значения к переменной "сумма"
        summa += num

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

Таким образом, программа найдет сумму элементов массива, которые кратны 3 или 5.