PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-5,25); a.Println;
a.Transform(t->t.Between(-2,20)? t*t : t); a.Println
end.
Пример
-3 5 14 -3 10 12 1 7 10 2 15 22 5 4 -3 21 3 -1 10 21
-3 25 196 -3 100 144 1 49 100 4 225 22 25 16 -3 21 9 1 100 21