[!Аленка!]

ЦУКО!!!! Ну почему ни Олейникова, ни Туфанова нет в сети?!!!

ФАК!!!

Comments

[peezhaunt]

Аленка)) ну и что, зато в сети есть Я!

не все еще потеряно....

[!Аленка!]

peezhaunt, прости, забыла, слышай, найди косяк в кусорте //сортирует сначала по убыванию нам, а если элементы равны, то по возрастанию ласт

procedure qsort_num(l, r:integer);

var i,j,x:integer;

begin

i := l;

j := r;

x:=l + random(r - l);

repeat

while (num[i] > num[x])

or((num[i] = num[x]) and (last[x] > last[i]))

do inc(i);

while (num[j] < num[x])

or((num[j] = num[x]) and (last[x] < last[j]))

do dec(j);

if i <= j then

begin

swap(num[i],num[j]);

swap(car[i],car[j]);

swap(last[i],last[j]);

inc(i);

dec(j);

end;

until i>j;

if j>l then qsort_num(l,j);

if i<r then qsort_num(i,r);

end;

[peezhaunt]

Аленка)) нуууу... для меня это, пожалуй, слишком...

[!Аленка!]

peezhaunt, жаль, я так на тебя надеялась...