freepascal.ru

Код: Выделить всё

var
a:array of integer;
n:integer;
begin
readln(n);
setlength(a,n);
.....

Код: Выделить всё

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

Код: Выделить всё

const CSize = ...; // размер массива

var
Numbers: array [0...CSize] of integer; // обрабатываемый массив
Counts: array [0...MaxInt] of integer; // массив счетчиков
i : integer;

begin
 FillChar(Counts, SizeOf(Counts), 0); // очистка счетчиков
 // накопление счетчиков (число в массиве - это индекс счетчика)
 for i:=0 to CSize-1 do Inc( Counts[ Numbers[i] ] );
 // Пробегаем по массиву Counts и выбраем те, что содержат единицу
 for i:=0 to MaxInt do if Counts[i]=1 then Writeln(i);
end.