В массиве все элементы >10 и <20 заменить ** первый элемент массива

Question

В массиве все элементы >10 и <20 заменить на первый элемент массива

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),1,30); a.Println;
  var a1:=a[0];
  a.Transform(x->((x>10) and (x<20))?a1:x); a.Println;<br>end.

Пример
n= 15
8 6 15 29 11 20 11 13 19 6 1 10 18 26 19
8 6 8 29 8 20 8 8 8 6 1 10 8 26 8