сумма элементов

[bifshtex]

В целочисленном массиве, состоящем из 20 элементов, определить и вывести на экран те элементы, которые можно представить суммой двух других элементов.
Т.е., например, если был изначально такой массив(я возьму 7 элементов):
-1 2 2 4 7 9 13
в итоге должно быть так:
4 9 13

я ее почти решил, вот прога:
uses crt;
const n=20;
type mas=array[1..n] of integer;
var
x:mas;
sum:integer;
i,j,k:byte;
begin
clrscr;
for i:=1 to n do
 readln(x);

for i:=1 to n-1 do
 for j:=i+1 to n do
 begin
 sum:=x+x[j];
 for k:=1 to n do
  if sum=x[k] then write(sum,' ');
 end;
readln
end.

только вот косяк, когда я ввожу такие данные: 2 4 6 7 8 10 11
в результате получается : 6 8 10 10 11
Так вот, как избежать повторения? не используя другой массив???

[privatnebank]

/-------------------------/
var
a: array...
x1, x2: Integer; \\x1  и x2 - это переменные
buf: Integer;\\ сюда будем запоминать число
/-------------------------/
  buf:=0;\\ сначала нет чисел
  {Находим все числа, удовлетворяющие условию}
  for i:=3 to 20 do \\для каждого i-того элемента начиная с третьей позиции. С третьей, потому что т.к. число должно представляться суммой двух элементов, стоящих за ним, то минимум таких чисел должно быть 2.
      begin
      for x1:=1 to i-2 do \\для x1 начиная с первого и по 18
            for x2:=x1+1 to i-1 do \\а также для x2 начиная со второго по 19 проверять следующее условие
                 if (a[x1]+a[x2]=a) and (a<>buf) then \\если сумма x1 и x2 равна i-тому элементу и если i-тый элемент не равен числу, которое мы запоминаем
              begin
              buf:=a; \\запоминаем это число
              Write(a,' '); \\и выводим i-тый элемент
              end;
      end;

Попробуй это записать вместо:
for i:=1 to n-1 do
 for j:=i+1 to n do
 begin
 sum:=x+x[j];
 for k:=1 to n do
  if sum=x[k] then write(sum,' ');
 end;
readln
end.
Тогда числа при выводе повторяться не будут. Только объяви переменные в разделе описаний.

[bifshtex]

а ты пробовал ее тестировать, а то я  сделал как ты посоветовал, ниче не правильно...

[privatnebank]

Для упорядоченного массива все вроде работает. Тестил на массиве из 7 элементов: -1 2 2 4 7 9 13 ----> выдает 4,9,13.
Для массива: 2 4 6 7 8 10 11 ---> 6.8.10.11...
Смотри:

а ты пробовал ее тестировать, а то я  сделал как ты посоветовал, ниче не правильно...

Код: [Выделить]


  const
  n=20;
  var
  a: array [1..20] of Integer;
  i,j,buf,x1,x2: Integer;
  begin
  randomize;
  Write('Введите 20 чисел: ');
  for i:=1 to n do ReadLn(a[i]); {Вводим 20 чисел}
 
  WriteLn('Дан массив a[1..20]:'); {Выводим массив}
  Write('a[');
  for i:=1 to 20 do Write(a[i],' ');
  WriteLn(']');
  ReadLn;

  buf:=0;
  {Находим все числа, удовлетворяющие условию}
  for i:=3 to 20 do
      begin
      for x1:=1 to i-2 do
      for x2:=x1+1 to i-1 do
        if (a[x1]+a[x2]=a[i]) and (a[i]<>buf) then
              begin
              buf:=a[i];
      Write(a[i],' ');
              end;
      end;
  ReadLn;
   end.

[bifshtex]

Спасибо=)все работает
единственное что, этот алгоритм совершенно не подходит для отрицательных чисел, ведь например -2 и 2 дадут в сумме 0, а он у нас полюбому не будет выводится...
да и другие отрицательные совершенно не выводятся...

[privatnebank]

да, действительно.... я как-то об этом не подумал. Постараюсь что-нибудь придумать

[InfStudent]

Не ну для отрицательных это поведение вполне нормально и здесь можно использовать следующее например сумма по модулю, но это неправильно,потому как это искажает результат, а на самом деле при сложении отрицательных чисел мы имеем дело с алгебраической суммой, где знак "-" вполне нормально и потому для отрицательных чисел мы можем получить искомый результат только в случае отриц.+отриц. Так что алгоритм работает правильно при поставленной задаче.Можно ее уточнить так: найти эл-ты массива равные сумме двух других взятых по модулю.