Это старая версия документа!

Сортировка пузырьком

const 
    N = 100;
var
    A : array [1..N] of integer;
    I, J : integer;
 
procedure BubbleSort;
var
  T: Integer;
begin
  for I := N downto 1 do
    for J := 1 to N-1 do
      if A[J] > A[J + 1] then
      begin
        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;
      end;
end;
 
begin
   Randomize;
   for I := 1 to N do A[I] := random(N);
   for I := 1 to N do write(A[I],' ');
   writeln;
   BubbleSort;
   for I := 1 to N do write(A[I],' ');
end.

Сортировка выборкой

const 
    N = 100;
var
    A : array [1..N] of integer;
    I, J : integer;
 
procedure SelectionSort;
var
    T: Integer;
begin
  for I := 1 to N-1 do
    for J := N downto I+1 do
      if A[I] > A[J] then
      begin
        T := A[I];
        A[I] := A[J];
        A[J] := T;
      end;
end;
 
begin
   Randomize;
   for I := 1 to N do A[I] := random(N);
   for I := 1 to N do write(A[I],' ');
   writeln;
   SelectionSort;
   for I := 1 to N do write(A[I],' ');
end.