Question

Задан случайный цифровой массив. Вывести на консоль сумму порядковых номеров всех нечетных элементов этого массива. Сделайте пожалуйста(в паскале)

Answer 1

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.