xuan_ze.pas

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

program xuanze;
     var j,k,i,n:integer;
     array a[1..10] of integer
 begin
  for i:=1 to n-1 do
   begin
    k:=i;
    for j:=i+1 to n do
     if a[j]<a[k] then k=j;
    if k<>i then
     begin
     a[0]:=a[k];a[k]:=a[i];a[i]=a[0] ;
     end;
    end;
 end.