сортировка вставкой

@NotBeginner · Регистрация: 22.02.2013

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

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

Delphi

 for i := 1  to k do
  begin
    j := i;
    q := m[i];
    while (j > 0) and (m[j-1] > q) do
    begin
      m[j] := m[j-1];
      j := j - 1;
    end;
    m[j] := q;
  end

но неполучается по убыванию

@dr.curse · 05.06.2013, 19:09

NotBeginner,так?

Pascal

 for i := 1  to k do
  begin
    j := i;
    q := m[i];
    while (j > 0) and (m[j-1] < q) do
    begin
      m[j] := m[j-1];
      j := j - 1;
    end;
    m[j] := q;
  end

@NotBeginner · 05.06.2013, 22:44 **[ТС]**

aram_gyumri, да, большое спасибо!

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
	05.06.2013, 22:44 [ТС]	3
	aram_gyumri, да, большое спасибо! 0

Опции темы