unendlich viele zahlen

[Satty67]

€: 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.