//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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.