В массиве целых чисел заменить все четные значения элементов ** их индексы

Question

В массиве целых чисел заменить все четные значения элементов
на их индексы

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a.Select((x,i)->(x,i)).Select(t->t[0].IsEven?t[1]+1:t[0]).ToArray;
  a.Println
end.

Пример
n= 13
-34 -69 23 73 -91 -6 -37 -96 -26 40 37 -27 20
1 -69 23 73 -91 6 -37 8 9 10 37 -27 13