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.