begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Indices((v, i) -> v.IsOdd).Sum(i -> i + 1).Print
end.
