aus einem Array die kleinste Zahl herausfinden

[Wolfgang Mix]

Schau dir mal diesen Code aN, habe ich gerade mal gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl : array[1..1000] of integer;
    i,min:integer;
begin
   randomize;
   for i:= 1 to 10 do
   begin
     zahl[i]:=random(1000)+1;
   end;
   min:=1000;
   for i:= 1 to 10 do
   begin
     if zahl[i] < min then min:=zahl[i];
   end;
   edit1.Text:=IntToStr(min);
end;

Gruß

Wolfgang