Задача: написать программу на Паскале, С (С++) или Бейсике.

Входной файл: input.txt.

Выходной файл: output.txt.

Ограничение времени выполнения программы: 1 секунда на тест.

Спецификация входа: в первой строке входного файла записано целое число N (1  N  1000), во второй строке файла записаны целые числа X1, X2, ..., XN, (-109  Xi  109).

Спецификация выхода: запишите в выходной файл числа Xi в порядке неубывания.

Пример входа:

5
12 10 5 10 7

Пример выхода:

5 7 10 10 12

program exs;var a : array [1..1000] of integer;n, i : integer;

procedure qsort(l, r: integer);var i, j, key, buf : integer;begin i := l; j:= r; key:=a[(l+r) div 2]; repeat while a[i] < key do inc(i); while a[j] > key do dec(j); if i<=j then begin buf:=a[i]; a[i]:=a[j]; a[j]:=buf; inc(i); dec(j); end; until (i>j);if (l < j) then qsort(l, j);if (i < r) then qsort(i, r);end;

begin readln(n); for i:= 1 to n do begin read(a[i]); end; qsort(1, n); for i:=1 to n do begin write(a[i], ' '); end;end.