определить сумму одинаковых чисел [турбо паскаль]

[егорыч]

друзья помогите написать программу, условие такого: с клавиатуры вводится последовательность чисел , 0 конец последовательности, определить сумму одинаковых чисел.

[rubius2008]

Берешь элемент и просматриваешь последовательность на его наличие но не в том же месте и добавляешь в сумму.

for i:=1 to n do begin
   s:=0;
   for j:=1 to n do if (a[i]=a[j]) and (j<>i) then s:=s+a[j];
   if s<>0 then begin
     s:=s+a[i];
     {вывод суммы в каком надо виде }
   end;
end;

[vovk]

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

[егорыч]

сумму всех чисел которые встречаются больше 1 раза

[vovk]

тогда rubius2008 всё уже решил вам))

[егорыч]

у меня не срабатывают квадратные скобки