Решать на Pascal ABCПереставить элементы массива так, чтоб поначалу располагались нули,

Версия Pascal ABC 2.2 сборка 765 (11.05.2014)

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-5,5).Println(',');
  (a.Where(x-gt;x=0)+a.Where(x-gt;xgt;0).OrderBy(x-gt;x)+
    a.Where(x-gt;xlt;0).OrderByDescending(x-gt;x)).Println(',')
end.

Тестовое решение:
n= 15
0,-2,0,-5,-5,2,-4,2,-1,1,1,2,4,2,5
0,0,1,1,2,2,2,2,4,5,-1,-2,-4,-5,-5