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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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;