others/volume1/058.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

uses clib;

var
  n, i: int16;
  a: array of int64;

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