roat3.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 23 行

var n,i,j,p,nr,aux:integer;
    v:array[1..50] of integer;
begin
write('n=');readln(n);
for i:=1 to n do
    begin
    write('v[',i,']=');
    readln(v[i]);
    end;
for i:=1 to n-1 do
  for j:=i+1 to n do
                if v[i]>v[j] then begin
                                  aux:=v[i];
                                  v[i]:=v[j];
                                  v[j]:=aux;
                                  end;
p:=n div 2;
for i:=1 to p do
         write(v[i],' ');
for i:=n downto n-p do
        write(v[i],' ');
readln;
end.