begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
a := (a.Where(t -> t > 0) + a.Where(t -> t = 0) +
a.Where(t -> t < 0)).ToArray;
a.PrintLn
end.
Жил был маленький ёжик. Учился он в школе, и вот однажды.. задали ему домашнее задание. Замечательное, развивающее смекалку и воображение задание. Стал делать его ёжик и понял, что он маленькая ленивая бездарность и приуныл. Конец.
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.
Таак. 56 кбит/с = 7 кбайт/с
7*5 = 35 кбайт/5с
Система бникод ─ 2 байта на символ
Итого 35/2 = 17 символов.