ShirokovP

Verified answer

Begin 

var a:=ArrRandom(10,-150,250);   a.Println; 
var max := a.Max; 
println('Максимальное = ', max); 
a.Transform(t->t=max ? max*(-1):t); 
a.Println;
end.