Delphi-Quellcode:
procedure TForm1.btSortierenClick(Sender: TObject);
var
i,j,min,hilfsvar:integer;
begin
for i:=1 to 10 do
begin
Stringgrid1.Cells[i-1,2]:=inttostr(kleinstezahl(i,10));
end;
end;
Wer sagt Dir denn, daß die kleinste Zahl immer in der Position kleiner i liegt,
Liegt sie dahinter wird diese Zahl des öfteren als kleinste Zahl erkannt.
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
vergleich:=zahlen[i];
end;
result:=vergleich;
end;
Wenn Du hier die kleinste Zahl ermittelt hast
mußt Du sie an die a-te Position des Array schieben
und die Zahl von der a-ten Position an die Position der kleinsten Zahl.
Das nennet sich sortieren durch vertauschen.
Ist auch in dem Link erklärt.
Grüße
Klaus