Question

Дан одномерный массив 30 целых чисел найти сумму элементов кратных своим индексам

Answer 1

Решение предоставлено на фото ниже

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(30, 0, 99);

 a.Println;

 a.Where((v, i) -> (i > 0 ? v mod i = 0 : False)).Sum.Println

end.

Answer 3

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

Вот пример кода на языке Python, реализующий данную логику:

pythonCopy code
array = [1, 4, 6, 10, 20, 15, 7, 0, 3, 18, 12, 36, 8, 16, 9, 27, 5, 30, 25, 50, 2, 14, 11, 22, 13, 26, 17, 34, 19, 38]
sum_multiples = 0

for i in range(len(array)):
    if array[i] % i == 0:
        sum_multiples += array[i]

print("Сумма элементов, кратных своим индексам:", sum_multiples)

В данном примере приведен массив array из 30 целых чисел. Результат будет выведен в консоль.