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

Незнаюзачемтутник Незнаюзачемтутник    2   15.01.2020 09:02    6

Ответы
PapayaS PapayaS  11.10.2020 00:51

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


Дан одномерный массив 30 целых чисел найти сумму элементов кратных своим индексам
ПОКАЗАТЬ ОТВЕТЫ
Диманник2006 Диманник2006  11.10.2020 00:51

===== 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.


Дан одномерный массив 30 целых чисел найти сумму элементов кратных своим индексам
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика