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

// 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.Printlnend.Примерn= 13-34 -69 23 73 -91 -6 -37 -96 -26 40 37 -27 201 -69 23 73 -91 6 -37 8 9 10 37 -27 13