<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em> begin var n:=ReadInteger('n='); var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray; a.Println; var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray; a:=b.Concat(a.Where(x->x>0)).ToArray; a.Println; end.