Question

Одномерные массивы. Дан массив из 10 элементов. Найти сумму тех, которые делятся на 3. Константы не проходили.

Answer 1

//PascalABC.NET 3.8.2

var

 arr : array[1..10] of integer;

 _sum : integer;

 begin

   for var i := 1 to 10 do

     begin

     readln(arr[i]);

     if (arr[i] mod 3 = 0) then

       _sum := _sum +arr[i];

     end;

   writeln('Сумма элементов, которые делятся на 3: ', _sum);

 end.

Answer 2

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

Алгоритм решения:

1. Создадим массив из 10 элементов. 2. Проинициализируем его значениями. 3. Создадим переменную `sum` и присвоим ей значение 0. Эта переменная будет использоваться для хранения суммы элементов, которые делятся на 3. 4. Пройдемся по каждому элементу массива. 5. Если элемент делится на 3 без остатка, то добавим его к переменной `sum`. 6. Выведем значение переменной `sum`.

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

```python array = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] sum = 0

for num in array: if num % 3 == 0: sum += num

print("Сумма элементов, которые делятся на 3:", sum) ```

Результат: ``` Сумма элементов, которые делятся на 3: 18 ```

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