[#] Sortowanie bąbelkowe

( Ostatnio zmieniony wt., 10/06/2008 - 02:23 )
 
var j, x : integer;
begin
  for i:=1 to 4 do
    for j := i+1 to 5 do
      if a[i] > a[j] then
       begin
        x := a[i];
        a[i] := a[j];
        a[j] := x;
       end;
end;

Przydatne linki:

http://www.algorytm.org

5
Twoja ocena: Brak Średnio: 5 (1 vote)