mao_pao.pas

来自「本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS」· PAS 代码 · 共 21 行

program mao_pao;
     var i,j,t,n:longint;
         a:array[0..9999]of longint;
 begin
   write('How many manber:');readln(n);
   writeln('place enter this manber:');
   for i:=1to n do
    readln(a[i]);
   for j:=1to n-1do
   for i:=1to n-1do
   if a[i]>a[i+1]then
     begin
       t:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=t;
     end;
   write('end:');
   for i:=1to n do
    write(a[i],' ');
   readln
 end.