aus einem Array die kleinste Zahl herausfinden

[baumina]

Natürlich kannst du ein array of real machen. Mit "Array of Real" machst du ein dynamisches Array und musst natürlich dann für die Größe sorgen. Mit "Array[1..1000] of Real" machst du ein statisches Array, das max. 1000 Werte haben kann.

Das hier z.B. würde Sinn machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var zahl : array[1..8] of real;
  i,merker : Integer;
  min      : Real;

begin
  zahl[1] := StrToFloat(Edit1.Text);
  zahl[2] := StrToFloat(Edit2.Text);
  zahl[3] := StrToFloat(Edit3.Text);
  zahl[4] := StrToFloat(Edit4.Text);
  zahl[5] := StrToFloat(Edit5.Text);
  zahl[6] := StrToFloat(Edit6.Text);
  zahl[7] := StrToFloat(Edit7.Text);
  zahl[8] := StrToFloat(Edit8.Text);

  min:=1000;
  for i:= 1 to 8 do
  begin
    if zahl[i] < min then
    begin
      min:=zahl[i];
      merker:=i;
    end;
  end;
  label1.caption:=FloatToStr(min);
  label2.caption:=IntToStr(merker);
end;