одномерный массив

[bifshtex]

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

[bifshtex]

я вывел такие вещи, что эти элементы могут получится из сумм эл-тов, стоящих до и после нужного числа, а также из эл-в, стоящих левее него. Да, и еще 1-ое число никак не может быть суммой двух других чисел.

[bifshtex]

Да, и еще в этой же теме напишу, чтобы новую не создавать. Есть ли такая прога, с помощью которой создаются блок-схемы по ГОСТу?

[bifshtex]

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.

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

[InfStudent]

Именно такой проги нет, это LabVIEW любит всю программу в блок-диаграмму записывать) А так UML от части решает проблему, но UML для такой задачи это шибко круто)))