€: heilige Sch... das sind aber während ich geschrieben hab einige Posts dazu gekommen
Megadumm nicht, ist ja nur eine Sache der Erfahrung (und selbst die reicht manchmal nicht, wie ich an mir oft merke)
Wenn jeder darf, will ich auch mal:
Delphi-Quellcode:
program ProjectConsole1;
{$APPTYPE CONSOLE}
uses
sysutils;
type
zahl = array of integer; // Array jetzt dynamische Größe
var
z : zahl;
i,j,x,L : integer; // L speichert die Länge des Array
begin
// Array-Größe abfragen
write ('Array-Groesse: ');
readln (L);
// Array festlegen
Setlength(z, L);
// Zahlen erfassen
for i:= 0 to L-1 do begin
write (i+1, '. Zahl: ');
readln (z[i]);
end;
// Bubble-Sort
for j:=0 to L-1 do begin
for i:=j+1 to L do begin
if z[j]<z[i] then begin
x:=z[i];
z[i]:=z[j];
z[j]:=x;
end;
end;
// Kontroll-Ausgabe
writeln;
for i:= 0 to L-1 do
write (z[i]);
readln;
{ TODO -oUser -cConsole Main : Hier Code einfügen }
end;
end.