//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomReal(ReadInteger('n ='), -100, 100); // автоматический ввод данных
Println(a);
a.Transform(x -> (x > 0 ? Power(x, 5) : x));
Println(a);
end.