Из егэ. решить! , публикую повторно

Constmax = 10000; var  i, j : integer; x,raz  : longint; a : array[0..max]  of longint;     begin//  //допустим уже массив заполнен//          for i : = max downto 2 do         for j : = 2 to i do           if a[j] < a[j - 1] then             begin                 x : = a[j];                 a[j] : = a[j - 1];                 a[j - 1] : = x; inc(raz);             end;   writeln('количество перестановок =  ', raz);   end.не проверял, но должно вроде бы работать: )

program sorting;

const

  n = 10;

var

  v: array[1..n] of integer;

  d: integer;

  i, t: integer;  

  k: boolean;  

begin

  randomize;

  write('до сортировки:     ');

  for i : = 1 to n do

  begin

    readln(v[i])

    write(v[i]: 6);

  end;

}  

  d : = n div 2;

  while(d > 0) do

  begin

    k : = true;  

    while k do

    begin

      k : = false;

      i : = 1;

      for i : = 1 to n - d do

      begin

        if(v[i] > v[i + d]) then

        begin

          t : = v[i];

          v[i] : = v[i + d];

          v[i + d] : = t;

          k : = true;

        end;

      end;

    end;    

    d : = d div 2;

  end;

  writeln;

  write('после сортировки: ');

  for i : = 1 to n do

    write(v[i]: 6);

  writeln;

end.