array mit zahlen

[marabu]

Hallo Stephanie.

Wenn deine Zahlen schon feststehen, dann willst du sie vielleicht nur noch mischen:

Delphi-Quellcode:

procedure Shuffle(var a: array of integer);
var
  i, j, temp: integer;
begin
  for i := 1 to High(a) do
  begin
    j := Pred(i + Random(Length(a) - i));
    temp := a[Pred(i)];
    a[Pred(i)] := a[j];
    a[j] := temp;
  end;
end;

Grüße vom marabu