сортировка вставками по убыванию

@qlr · Регистрация: 17.12.2010

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

подскажите пожалуйста код для сортировки вставками по убыванию, в интернете только по возрастанию...
вот один из них

Pascal

const N=255;
type array_type=array [1..N] of integer; 
 
procedure InsertSort(var x:array_type);
var
  i, j, buf:integer;
begin
  for i:=2 to N do
  begin
    buf:=x[i];
    j:=i-1;
    while (j>=1) and (x[j]>buf) do
    begin
      x[j+1]:=x[j];
      j:=j-1;
    end;
    x[j+1]:=buf;
  end;
end;

@Puporev · 31.01.2011, 08:13

Сообщение от qlr

в интернете только по возрастанию

Так знак смените

Pascal

1	and (x[j]<buf)

@qlr · 31.01.2011, 17:28 **[ТС]**

ага, спасибо)

@qlr 22 / 22 / 9 Регистрация: 17.12.2010 Сообщений: 72
	31.01.2011, 17:28 [ТС]	3
	ага, спасибо) 0