for a:=2 to n do
for b:=n downto a do
begin;
if tablica[b-1] > tablica[b] then
begin;
tmp:=tablica[b-1];
tablica[b-1]:=tabica[b];
tablica[b]:=tmp;
end;
end;
gdzie a,b,tmp to pomocnicze (a,b integer, tmp adekwatnie do tablicy), n to liczba elementów tablicy
Poprawiono 1 błąd ort.
Ostatnio zmieniony przez Archdevil 2011-02-27, 22:12, w całości zmieniany 1 raz
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum