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

Ответы 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.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
    • Автор:

      rosalia
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years