mindste tal array

Jeg har selv et forslag, men det er ret besværligt, synes jeg:

Først findes det mindste tal uden hensyn til, hvor det ligger. Herefter bestemmes de(t) array, som indeholder det tal. Man kan så lave en stringliste, hvor de bestemte arrayfeltnumre noteres på hver sin linje, og en tilfældig linje vælges da.

Jeg antager at du skal finde elementer ikke arrays ...

Jeg tror ikke at der er mange muligheder for optimering:
1) du løber igennem hele arrayet en gang og finde det mindste tal - samtidigt
  gemmer du index til dette (du nulstiller når du finder et nyt mindste tal)
2) du trækker et tilfældigt tal op til antal fundne element index og bruger
  det udtrukne element index

Så må jeg bruge den løsning. Her er resultatet:

"
var
Tal: array [1..36] of Integer;

...

function TForm1.GetMin (Value: array of Integer): Integer;
var
  Min: Integer;
  I: Integer;
begin
  Min := Value[0];
  for I := Succ(Low(Value)) to High(Value) do
  if Value[I] < Min then
    Min := Value[I];
  Result := Min;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  StringList: TStringlist;
  I,J, Minimum: Integer;
begin
  Randomize;
  For J:=1 to 36 do
  Tal[J]:=Random(36)+1;
  Minimum := Getmin(Tal);
  StringList := TStringList.Create;
  For I:=1 to 36 do
  begin
    If Tal[I]=Minimum then
    Stringlist.Add(IntToStr(I));
  end;
  Showmessage(StringList[Random(StringList.Count)]);
  FreeAndNil(StringList);
end;
"

I praksis skal de to linjer efter randomize selvfølgelig ikke være der. Jeg lavede det bare i en seperat applikation

Du behøver ikke 2 gennemløb - du kan godt gøre det med 1 gennemløb.

hvad mener du med gennemløb?

2 løkker

Den første løkke er bare for at få nogle tal i min array.