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

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