// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin Println('*1*'); var a:=ArrRandom(10,-99,99); a.Println; var imin:=a.IndexMin; if imin=a.Length-1 then a:=a+Arr(100) else a:=a[:imin+1]+Arr(100)+a[imin+1:]; a.Println; Println('*2*'); a:=ArrRandom(10,-99,99); a.Println; var imax:=a.IndexMax; if imax=a.Length-1 then a:=a[:imax] else a:=a[:imax]+a[imax+1:]; a.Println end.