Abi-Rechner

[AlexanderBrade]

UNd wie wende ich den BubbleSort auf mein Array[1..3,7..12] an?

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= N downto 1 Do
    For j:= 1 To i Do
      If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;