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

Question

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

Answer 1

// 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

Comments

А есть ли смысл для школьника писать программу на версии языка, которую их школьный Паскаль врядли поймёт? А автор вопроса тем более. Я вот нифига не понимаю) Я не из вредности спрашиваю... Из любопытства

---

Ясно. Видимо мы в этом плане устарели. Спасибо за ответ.