冒泡法排序

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils; label 1;
var i, j: integer;
  temp: real;
  a: array[1..10] of real;

begin
       writeln( '输入10个数');
1:    for I := 1 to 10 do
            begin
             read(a[i]);

             end;
             writeln;
  for i:=1 to 9 do
    for J:=i+1 to 10 do
      if a[i] > a[j] then

       begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;

      end;
   for I:=1 to 10 do
   write(a[i]:8:2);
 goto 1;
end.

https://files.cnblogs.com/atiger/基础算法(控制台程序).rar