Дан одномерный массив 30 целых чисел найти сумму элементов кратных своим индексам
BobbyFresnel:
Какой язык?
Ответы
Ответ дал:
1
Решение предоставлено на фото ниже
Приложения:

Ответ дал:
0
===== 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.
Приложения:

Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад
8 лет назад