Bubblesort

[Matze]

n darf bei dir natürlich nicht 100 sein, sondern 10. n ist die Anzahl der zu sortierenden Einträge.

Eine Ausgabe fehlt bei dir ebenfalls:

Delphi-Quellcode:

begin
  for i:=n-1 downto 1 do
    for j:=1 to i do
      if Zahl[j]> Zahl[j+1] then
        begin
          Merke:=Zahl[j];
          Zahl[j]:=Zahl[j+1];
          Zahl[j+1]:=Merke;
        end;

  // Ausgabe
  ListBox1.Clear;
  for i := 1 to 10 do
    begin
      ListBox1.Items.Add(IntToStr(Zahl[i]));
    end;
end;

Die Laufvariablen i und j solltest du lokal deklarieren und nicht global. Immer so viel wie möglich lokal und soviel wie nötig global deklarieren.

[flac]

Hey ich danke euch allen.. Es funktioniert