Hallo!
Ich muss ein Programm mit einer Funktion erstellen, die das Mimimum eines Feldes mit Zufallszahlen ermittelt. Ich habe Probleme bei der Ausgabe, da dynamic array und integer nicht kompatibel sind. Wie kann ich das beheben?
Delphi-Quellcode:
function minimum(n,m:integer):integer;
var zahlen1: array of integer;
begin
result:=Minintvalue(zahlen1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,i: integer; zahlen2: array of integer;
begin
a:=Strtoint(edit1.Text);
b:=Strtoint(edit2.Text);
for i := 1 to a do begin
zahlen2[i]:=random(b);
memo1.Lines.add(inttostr(zahlen2[i]));
end;
c:=minimum[zahlen2];
edit3.Text:=inttostr(c);
end;
Ich weiß, dass dieses Programm sehr amateurhaft ist, ich bin nur Schüler
