sort_cre.pas

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

program sortare_crescator;
var a:array[1..10] of integer;
    n,k,i,j,s:integer;
{procedure afis(var b:array[1..10]of integer);
var i:integer;
begin
for i:=1 to 10 do
     write(a[i]);
    writeln;
end;        }
begin
for i:=1 to 10 do
    begin
    read(a[i]);
    write('  ');
    end;
k:=9;
      repeat
      s:=1;
      begin
            for i:=1 to k do
                     if a[i]>a[i+1] then
                                        begin
                                             j:=a[i+1];
                                             a[i+1]:=a[i];
                                             a[i]:=j;
                                        end
                                    else s:=0;
            for i:=1 to 10 do write(a[i],'  ');
            writeln;
            k:=k-1;
            end;
      until k=0;
readln;
end.