Übung: Array und Bubble sort

[czapie]

Bubblesort:

Delphi-Quellcode:

for i:=1 to "Länge deines Arrays -1 " do //vom zweiten Element bis zum Vorletzten
begin
     for j:= "Länge deines Arrays" downto i do  //Vom letzten bis zum i.-Element
     begin
          if DeinArray[j] < DeinArray[j-1] then //wenn j.-Element kleiner als j.-1-Element...
          begin                                 //..tauschen:
               k := DeinArray[j-1]; //Wert des j.-1-Elements in Hilfsvariable
               DeinArray[j-1] := DeinArray[j];//j.-1-Element soll j.-Element werden
               DeinArray[j] := k; //j.-Element-Inhalt soll Hilfsvariable sein
          end;
     end;
end;