pascal 冒泡排序

冒泡排序是一种简单的排序算法，它重复地比较相邻的两个元素，并根据需要交换它们的位置，直到整个数组排序完成。下面是用 Pascal 语言实现冒泡排序的示例代码：

program BubbleSort;

const
  MAXSIZE = 100;

type
  arr = array[1..MAXSIZE] of integer;

var
  a: arr;
  n, i, j, temp: integer;

procedure BubbleSort(var a: arr; n: integer);
begin
  for i := 1 to n - 1 do
  begin
    for j := 1 to n - i do
    begin
      if a[j] > a[j + 1] then
      begin
        temp := a[j];
        a[j] := a[j + 1];
        a[j + 1] := temp;
      end;
    end;
  end;
end;

begin
  writeln('Enter the number of elements: ');
  readln(n);
  
  writeln('Enter the elements: ');
  for i := 1 to n do
    readln(a[i]);
  
  BubbleSort(a, n);
  
  writeln('Sorted array:');
  for i := 1 to n do
    writeln(a[i]);
end.

在这个示例中，我们首先读取要排序的元素个数，然后依次读取每个元素。接下来调用 `BubbleSort` 过程对数组中的元素进行排序，并最后输出排序后的结果。