надо разбить массив на подмассивы

[RaZaL]

есть массив, например [51, 56, 58, 59, 61], надо разбить его на подмассивы из N чисел

Например из 3(может быть любое количество): [51,56,58], [51,56,59], [51,56,61], [51,58,59], [51, 58,61], [51,59,61], [56,58,59], [56,58,61], [56,59,61], [58,59,61]

После посчитать суммы всех получившихся подмассивов и вывести сумму наибольшую возможную к заданному пределу 't', например 173

[evg_m]

или же ...
НАЙТИ 3(N) элемента исходного массива сумма которых НАИБОЛЕЕ приближена к t(173)/

maxdelta:=3 *100000000000000;
t:=173;
// при перестановке слагаемых ... => порядок неважен => 
for i1:=1 to M-2 do // оставить место для еще нескольких (двух)
  for i2:=i1+1 {только после использованного см. первое замечание} to M-1 do
    for i3:=i2+1 to M do
      begin 
          s:=abs( MM[i1] +MM[i2] +MM[i3] -t); //посчитали наше "приближение"
          if s<maxdelta then // нашли лучше
          begin 
            super1:=i1; 
            super2:=i2;
            super3:=i3;
          end;
      end;
writeln('super =', MM[super1] +MM[super2] +MM[super3] );

superS:=3 *1000000000000000;
...
   s:=MM[i1] +MM[i2] +MM[3];
   if abs(s-t)<abs(superS-t) then superS:=s;
...
writeln('super =', superS);

[digitalis]

А если для произвольного N ? Тут надо обеспечить генерацию сочетаний из М по N .

[evg_m]

А если для произвольного N ?

можно и для произвольного.
http://programmersforum.ru/showthrea...t=64240&page=2
и доработать до нужного

[macomics]

superS:=MM[1]+MM[2]+MM[3]; //3 *1000000000000000;

Этого достаточно вместо плохого 3 * 1000000000000000. Иначе при:
MM[1] = 1000000000000001,
MM[2] = 1000000000000000,
MM[3] = 1000000000000000,
MM[4] = 1000000000000002,
MM[5] = 1000000000000001,
t = 1000000000000000
вы получите неверный результат.