Sortowanie przez wybór z zamianą (w.1): for nr1 := 1 to MAX - 1 do for nr2 := nr1 + 1 to MAX do if t[ nr2 ] < t[ nr1 ] then begin

pom

:= t[ nr1 ];

t[ nr1 ] := t[ nr2 ];

t[ nr2 ] := pom;

end

1

Sortowanie przez wybór z zamianą (w.2): for nr1 := 1 to MAX - 1 do begin

nrMin := nr1;

elMin := t[ nr1 ];

for nr2 := nr1 + 1 to MAX do if t[ nr2 ] < elMin then begin

nrMin := nr2;

elMin := t[ nr2 ];

end ;

t[ nrMin ] := t[ nr1 ];

t[ nr1

] := elMin;

end

2

Sortowanie bąbelkowe (G-D): for nr1 := 1 to MAX - 1 do for nr2 := 1 to MAX - 1 do if t[ nr2 ] < t[ nr2 + 1 ] then begin

pom

:= t[ nr2 ];

t[ nr2

] := t[ nr2 + 1 ];

t[ nr2 + 1 ] := pom;

end

3