mein quelltext für die repeat schleifen sieht so aus aber ich habe zum beispiel keine ahnung wo man die until's hinschreiben muss das man keine endlosschleife bekommt
Delphi-Quellcode:
i:=0;
repeat
i:=i+1;
repeat
j:=i+1;
until
i>3;
begin
if a[i] < a[j] then
begin
h:=a[i];
a[i]:=a[j];
a[j]:=h;
end;
end;
until j>4;
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]