Быстрая сортировка. Программа работает, но не могу поставить счетчик операций присваивания

@Ivan111Y · Регистрация: 21.11.2013

Author24 — интернет-сервис помощи студентам

Сортировка работает, массив выводится, но нужно ввести целочисленный счетчик (устанавливаемый в 0 в начале работы алгоритма сортировки), который будет увеличиваться на единицу после каждой операции обмена (т.е. операции присваивания, в правой или левой части которой встречается элемент массива а). Вставлять счетчик пробовал, но он считает только присвоения в одном цикле и выводит 3. Уже всю голову сломал. Выручайте.

Pascal

uses crt;
type massiv=array [1..500] of integer;
var
  a:massiv;
  i,j,n:integer;
procedure qs(l,r:integer);
var
  i,j,x,y: integer;
begin
  i:=l; j:=r;
  x:=a[(l+r)div 2];
  repeat
    while a[i]<x do i:=i+1;
    while a[j]>x do j:=j-1;
    if i<=j then 
     begin
      y:=a[i];
      a[i]:=a[j];
      a[j]:=y;
      i:=i+1; j:=j-1;
     end;
  until i>j;
  if l<j then qs(l,j);
  if i<r then qs(i,r);
end;
begin
clrscr;
randomize;
write('Введите размер массива не более 500 n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i],' ');
  end;
writeln;
qs(1,n);
writeln('Массив после сортировки: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.

	21.11.2013, 13:42