Array Sortierung + random der höchsten werte

[Chaosente]

Also was ich machen will ist aus einem array die höchsten werte rauszusuchen und aus diesen zufällig einen auswählen.

Also zum beispiel ein array
1,2,1,2,2,0

Da sollte er 2,2,2 raussuchen
und dann einen davon nehmen

Wie kann cih das realisieren

[marabu]

Hallo,

du kannst das Array mittels BubbleSort (absteigend) sortieren und nach Feststellung der Größe n des gewünschten Array-Abschnitts den Index des zufälligen Items per Random(n) bestimmen.

Delphi-Quellcode:

// uses Types;
procedure BubbleSort(var ida: TIntegerDynArray);
var
  i, iInner, iOuter: Integer;
begin
  // vom zweiten bis zum letzten Eintrag
  for iOuter := Succ(Low(ida)) to High(ida) do
    // für alle Einträge unterhalb des aktuellen
    for iInner := Pred(iOuter) downto Low(ida) do
      if ida[iInner] > ida[Succ(iInner)] then
      begin // Vertauschen um Teilvektor zu ordnen
        i := ida[Succ(iInner)];
        ida[Succ(iInner)] := ida[iInner];
        ida[iInner] := i;
      end else Break; // Teilvektor ist sortiert
end;

Grüße vom marabu

[DeddyH]

Also, was mir spontan einfällt (ist allerdings sehr unperformant):

1. Ermitteln des Maximums (per Schleife)
2. Weitere Schleife und Speicherung des Index der Elemente, die den maximalen Wert aufweisen, in einem dynamischen Array oder einer TList
3. Per Random(Length(dynamischesArray)) einen zufälligen Index ermitteln.

//Edit oder so wie marabu sagt, sofern Du auch sortieren zulässt.

[Chaosente]

Kann mir jemand diesen BubbleSort erklären?

[mkinzler]

bubblesort