Заменить на 1 все элементы массива с1, находящиеся в интервале [1,2]

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

begin
  var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
  a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.

Пример
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401