1、 某班同学（50人以内）排队出操，已知他们的身高，试将他们由矮到高重新排列，并输出。

1、    某班同学（50人以内）排队出操，已知他们的身高，试将他们由矮到高重新排列，并输出。
输入：两行，第一行：N（班级人数），第二行N个数，表示每个人的身高。
输出：一行。

program sorter;
var   i, j, n, t : integer;
      high : array [1 .. 50] of integer;
begin
        readln(n);
        for i := 1 to n do
            read(high[i]);
        for i := 1 to n-1 do
            for j := i+1 to n do
                if (high[i] > high[j]) then
                begin
                     t := high[i];
                     high[i] := high[j];
                     high[j] := t;
                end;
        for i := 1 to n do
            write(high[i], ' ');
        readln;
        readln;
end.