for j := 1 to n - 1 do
begin
Min := j;
for i := j + 1 to n do
if Tab[i] < Tab[Min] then
Min := i;
Temp := Tab[Min];
Tab[Min] := Tab[j];
Tab[j] := Temp;
end;
Gdyby coś było niezrozumiałe to proszę pisać.
Chcesz wiedzieć czym są te "algorytmy"? Hmm... To bardzo ciekawe zagadnienie informatyki i matematyki. Jeżeli chcesz poznać tajemnice tych tworów ludzkiej inteligencji, to czytaj uważnie naszego bloga! My piszemy tylko o rzeczach ciekawych - np. jak zrobić naleśniki albo złożony komunikator. Zapraszamy do lektury!
for j := 1 to n - 1 do
begin
Min := j;
for i := j + 1 to n do
if Tab[i] < Tab[Min] then
Min := i;
Temp := Tab[Min];
Tab[Min] := Tab[j];
Tab[j] := Temp;
end;