// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var n:=ReadInteger('n='); var a:=ArrRandomReal(n,1,50); a.Println; var m:=a.Min; if m<>0 then for var i:=0 to n-1 do a[i]/=m; a.Println end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,1,50); a.Println; var m:=a.Max; if m<>0 then for var i:=0 to n-1 do a[i]+=m; a.Println end.