Найти сумму индексов нечетных т элементов массива.

Найти сумму индексов нечетных т элементов массива.
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016 begin   var a:=ArrRandom(ReadInteger('n='),1,50); a.Println;   var s:=0;   for var i:=0 to a.Length-1 do     if a[i].IsOdd then s+=i+1;   Writeln('Сумма индексов нечетных элементов равна ',s) end. Пример n= 13 30 22 20 40 37 11 12 44 31 46 37 4 44 Сумма индексов нечетных элементов равна 31
Не нашли ответ?
Ответить на вопрос
Похожие вопросы