Binärbaum ist es ja schon aufgefallen, seine Prozedur arbeite mit 'nem (falschen) Startindex, diese arbeitet jetzt etwas besser ... Start- und Entindex sind egal.
Delphi-Quellcode:
procedure Sortiere(var Zahlen: array of real);
var i, j: Integer;
t: Real;
begin
for i:= Low(Zahlen) to High(Zahlen)-1 do
for j := i + 1 to High(Zahlen) do
if Zahlen[i] > Zahlen[j] then begin
t := Zahlen[i];
Zahlen[i] := Zahlen[j];
Zahlen[j] := t;
end;
end;