ПОЖАЛУЙСТА СРОЧНО!!!
Даны натуральные n, целые числа a1, … , an. Найти сумму неповторяющихся элементов массива.

for i:=1 to n do      
 begin          k:=0;       
  for j:=1 to n do             
if a[i]=a[j]then inc(k);             
if k=1 then begin                 
write (a[i], );                 
s:=s+a[i];           
  end;   
 end;

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.