// PascalABC.NET
begin
var y := ArrRandom(40, -99, 99);
y.Println;
var nmax := y.IndexMax + 1;
y.Transform((v, i) -> i < 35 ? v : v * nmax);
y.Print
end.
