Пожалуйста напишите программу

[Vasilisk]

Сложно объяснить, но попытаюсь:
Дается 10 чисел х1,х1,х3...х10. Нужно из предложенных чисел найти 2 суммы, ответы которых, будут как можно ближе друг к другу и являться целыми числами. Обе суммы вывести на экран.

Пример:
50; -16; 24; 10; 4; -2; 0; 6; -5; -2
Сумма всех чисел равна 69, т.е. ответы сумм должны быть 34 и 35 соответственно. Теперь находим составляющие сумм.

На экран должно вывести:
50-16-5+6+0=35
24-2-2+10+4=34

[Serge_Bliznykov]

мне кажется, что в общем случае задача не решается...
например, даны числа 70; 0; 1; 1;1;1;1;1;1;1
сумма = 78
дальше что?....

[Vasilisk]

Цифры всегда даются такие, чтобы из них которых могли выйти равные суммы.

[puporev]

ответы которых, будут как можно ближе друг к другу и являться целыми числами.

Для варианта 70; 0; 1; 1;1;1;1;1;1;1
Сумма 1=70(или 70, или 70+0), Сумма 2= 8(0+1+1+1+1+1+1+1+1, или 1+1+1+1+1+1+1+1)
Т.е. получить 2 сочетания с минимальной разностью их сумм.

[counter]

я вот тут надумал алгоритмик:

Ищем максимальное число и второе по величине число в массиве, а затем записываем их в разные суммы. Потом из оставшихся чисел находим наибольшее и второе - наибольшее пишем к меньшей сумме, а второе к большей. И так до пока весь массив не перебере.

Осталась только реализация...

[puporev]

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

[alexcoder]

Я бы сделал перебором всех вариантов сумм, а затем среди вариантов искал бы минимальную разность. Например, если учесть, что суммы будут состоять из равного количества слагаемых и от перестановки слагаемых сумма как известно не меняется. При n=10 значениях я насчитал 1+2+...+n/2+1=1+2+3+4+5+6=21 вариант.

[puporev]

что суммы будут состоять из равного количества слагаемых

С какой это стати?

[Vasilisk]

пока только варианты, я тоже многое перебрал, но реализовать не могу...
И не забываем, что каждая сумма должна состоять из 5 чисел. На примере видно

Пример:
50; -16; 24; 10; 4; -2; 0; 6; -5; -2
Сумма всех чисел равна 69, т.е. ответы сумм должны быть 34 и 35 соответственно. Теперь находим составляющие сумм.

На экран должно вывести:
50-16-5+6+0=35
24-2-2+10+4=34

[NoHeart]

uses crt;
const N=1000;
var f:text;
    arr:array [1..N] of integer;
    i,count,sum,part1,part2,max:integer;
procedure first;
var try1,try2,j,l,k1,k2:integer;
    view1,view2:array[1..n] of integer;
 begin
 try2:=0;
 try1:=0;
  j:=0;
  l:=0;
  for i:=1 to count do
   begin
  if arr[i]>=0 then
  begin
   inc(j);
   view1[j]:=arr[i];
   try1:=arr[i]+try1;
  end;
  if arr[i]<0 then
   begin
   inc(l);
   view2[l]:=arr[i];
   try2:=arr[i]+try2;
   end;
  end;
 try1:=try1-max;
 try2:=try2+max;
 if try2>=try1 then
  begin
   write(try1,'=');
    for k1:=1 to j do
     write(' ',view1[k1]);
  writeln;
   write(try2,'=');
   for k2:=1 to l do
    write(' ',view2[k2]);
 end;
end;
begin
 i:=0;
 max:=-9999;
 assign(f,'input.txt');
 reset(f);
 while not eof(f) do
  begin
   inc(i);
   read(f,arr[i]);
   if max<arr[i] then
    max:=arr[i];
   sum:=sum+arr[i];
  end;
  count:=i;
  if sum mod 2 = 0 then
   begin
    part1:=trunc(sum/2);
    part2:=part1;
   end
  else
  begin
   part1:=trunc(sum/2)+1;
   part2:=part1-1;
  end;
   first;
  readln;


end.

вот тут один из частых случаев, когда есть большое число а сумма остальных положительных чисел меньше этого числа допустим в файле входные данные 3 6 8 71 4 6 3 10 -20 -3 .
А для общего случая ничего на ум , кроме тупого перебора не приходит. То есть находим сумму всех чисел, делим ее на 2, и потом перебираем всевозможные случае сумм чисел, и какая комбинация показала наиболее близкий результат к половине суммы всех чисел, то и ответ. Вторую половину найти будет не сложно.