zu blöd für MinSort...

[Illuminator-23-5]

Zitat:

if a[j] < a[i] Then pos := j;

if a[j] < a[pos] then pos := j;

dann müssts gehn:

Delphi-Quellcode:

for i:= 1 to anz do begin
  pos:=i;
  for j:= i+1 to anz do begin
   if a[j]<a[pos] then pos:=j;
   hilf:=a[pos];
   a[pos]:= a[i];
   a[i]:=hilf;
  end;
end;