// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,20); x.Println; if x.Min<0 then x:=x.Select(e->abs(e)).ToArray; x.Println end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 const nn=50; var x:array[1..nn] of integer; i,m,n:integer; begin Write('n= '); Read(n); Randomize; x[1]:=Random(26)-5; m:=x[1]; Write(x[1],' '); for i:=2 to n do begin x[i]:=Random(26)-5; if x[i]<m then m:=x[i]; Write(x[i],' ') end; Writeln; if m<0 then begin for i:=1 to n do begin x[i]:=abs(x[i]); Write(x[i],' ') end; Writeln end end.
никак, запиши ее как l, например, и все