Поледовательность

[Witaliy]

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

[KingOfNothing]

Может как-то так?

For i:=1 to N do
begin
 s:=array[i];
 For j:=1 to N do
begin
  if i<>j then
   begin
   s:=s+array[j];
   for k:=1 to N do
      if array[k]=s then writeln(array[k]);
   end;
end;

[Witaliy]

Но єто для суммы нескольких елементов(2) а мне нужно для немного большего количества. Я думаю такое мождна сделать рекурсиею, но не знаю как...

[KingOfNothing]

Не совсем понял...
Вроде сумма K чисел (где k>=2) должна быть равна любому элементу?

[Witaliy]

Смотрите, есть такая последовательнось: 1 2 4 5 7 12
12 = 1+2+4+5
А в вас ничего не выводит.

[Witaliy]

Илт для такой
1 3 16 19 25 70 100 243 245 306
не считает 19=16+3

[KingOfNothing]

Я переделал алгоритм, но все равно не уверен, что он правильный, нужно проверить

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=10;

var i,j,k:integer;
arr:array[1..10] of integer = (1, 3, 16, 19, 25, 70, 100, 243, 245, 306);
s,d:integer;
sum:string;

begin
for i:=2 to n do     // number of sum elements
begin
for j:=1 to n do     // from the first number
begin
  s:=arr[j];
  sum:=IntToStr(arr[j]);
  for k:=j+1 to j+i-1 do   //sum
    begin
        if j+i<=n then
        begin
          s:=s+arr[k];
          sum:=IntToSTR(arr[k])+'+'+sum;
        end;
    end;
  for d:=1 to N do
      if (arr[d]=s) and (pos('+',sum)>0) then
        begin
           writeln('Element ',arr[d], ' ', sum);
        end;
end;
end;
readln;
end.

[Witaliy]

Всё ок, спасибо, ловите большой отзыв!