400 Zufallszahlen erzeugen & Bubble sortieren

[Binärbaum]

Zitat von hansklok:

zunächst die 400 Zufallszahlen erstellen:

Delphi-Quellcode:

var 
  Zahl: byte; 
begin 
  randomize; //Initialisieren des Zufallszahlengenerators
  Zahl:= Random(400); //0-400
end;

weiter bin ich leider noch nicht!

So gehts besser:

Delphi-Quellcode:

var
  zahlen: array[0..399] of Integer;
  i: Integer;
begin
  Randomize;
  for i:= 0 to 399 do
   zahlen[i]:= Random(1000); //Zufallszahlen von 0-999
end;

MfG
Binärbaum