(Классика) Куча камней сортировка НЕ пузырьком.

[Sega_AS]

У вас есть несколько камней известного веса W1, …, Wn. Напишите программу, которая распределит камни в две кучи так, что разность весов этих двух куч будет минимальной.
Исходные данные
Ввод содержит количество камней N (1 ≤ N ≤ 20) и веса камней W1, …, Wn (1 ≤ Wi ≤ 100 000) — целые, разделённые пробельными символами.
Результат
Ваша программа должна вывести одно число — минимальную разность весов двух куч.

program kamni;

var
  n, i, k, min, v,a,b,p: integer;
  m: array[1..10000000] of int64;
label metka;
begin
  read(n);
  for i := 1 to n do 
  begin
   read (m[i]);
   if m[i]<0 then goto metka;
  end;
  for i := 1 to n - 1 do 
  begin
    min := i; for k := i + 1 to n do
      if m[min] < m[k] then min := k;
    v := m[min]; m[min] := m[i]; m[i] := v;
  end;
a:=0;
b:=0;
for i:=1 to n do
if a-b<=0 then a:=a+m[i]
else b:=b+m[i];
begin
If a-b<0 then P:=b-a;
If p>0 then writeln (P);
writeln(a-b);
end;
metka:
end.

Сортировка пузырем крашит тест

6
1 4 5 6 7 9
0

А у меня

6
1 4 5 6 7 9
2
-2

Скажите какой сортировкой воспользоваться ?

[Serge_Bliznykov]

то, что Вы отстортировали по весу - это правильно.
а вот потом, Вы, вероятно, неправильно распределяете элементы по весу.

рекомендую почитать вот эту тему:

Разделение предметов по весу

и взять предложенный в ней алгоритм (пост #2 (c) Smitt&Wesson

а, учтите, что полученное решение будет близким к оптимальному, НО, разумеется, НЕ ОПТИМАЛЬНЫМ (я там в теме об этом говорил).
если нужно оптимальное решение - то нужен перебор всех вариантов, конечно!


Добавлено
посмотрел на ваш пример. нет, упрощённый алгоритм вам не подойдёт. нужен перебор!


о переборе (и коды)
можете почитать в темах

Жадный алгоритм и перебор

Выборка чисел

особенно обратите внимание на посты от (c) LeBron - судя по всему, это Гуру олимпиад по программированию!