roat6.pas

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

var v:array[1..50] of integer;
    ok:boolen;
    n,i,aux:integer;
begin
write('n=');readln(n);
for i:=1 to n do
              begin
              write('v[',i,']=');
              readln(v[i]);
              end;
repeat
ok:=true;
for i:=1 to n-1 do
           if v[i]>v[i+1] then begin
                               aux:=v[i];
                               v[i]:=v[i+1];
                               v[i+1]:=aux;
                               ok:=false;
                               end;
until ok;
for i:=1 to n do
   write(v[i],' ');
readln;
end.