Массив а размером 10 заполняется случайными целыми числами из интервала (-150,250). заменить максимальный элемент массива на противоположный по знаку.

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.