Bingo!!!
Jetzt hab ichs verstanden!!! Vielen Dank. Ich probiers dann demnächst mal aus und meld mich dann nochmal.
Vielen Dank und MfG langer_hans
EDIT: Ich habs geschafft! hier noch mal der erfolgreiche Code:
Delphi-Quellcode:
function kleinstezahl(a,b:integer):integer;
var i,vergleich:integer;
begin
vergleich:=zahlen[a];
for i:=a to b do
begin
if zahlen[i]<vergleich then
begin
vergleich:=zahlen[i];
zahlen[i]:=zahlen[a];
zahlen[a]:=vergleich;
end;
end;
result:=vergleich;
end;
Vielen Dank nochmal!!
