aus einem Array die kleinste Zahl herausfinden

[DeddyH]

Dann erzähl das mal meinem Delphi.

Delphi-Quellcode:

function kleinsteZahlAusArray(A: Array of Integer): Integer;
label
  neuerVersuch;
var
  i: Integer;
begin
  neuerVersuch:
  Result := Random(Length(A));
  for i := 0 to High(A) do
    if i <> Result then
      if A[i] < A[Result] then
        goto neuerVersuch;
end;

procedure TFormTest.Button1Click(Sender: TObject);
var
  A: array[1..2] of integer;
begin
  A[1] := 200;
  A[2] := 100;
  ShowMessage(IntToStr(kleinsteZahlAusArray(A)));
end;

Kompiliert und liefert 1 zurück (wobei 2 ja richtig wäre).