Вывод повторяющихся елементов массива.(язык програмирования не важен)

[alljustforfun]

Незнаю как удалить предыдущую тему, поэтому извините за 2.
вообщем кто знает алгоритм для вывода повторяющихся елементов массив без повтора(например есть масив(1,2,3,1,3,4) то нужно вывести 1 и 3).

[Rififi]

alljustforfun

вывода повторяющихся елементов массив без повтора
язык програмирования не важен

var arr = new [] {1,2,3,1,3,4 };

foreach (var i in arr.Distinct())
	Console.WriteLine(i);

[SlavaSSU]

var
a:array[1..1000] of integer;
i,j,n,t:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; a[n+1]:=a[n]+1;
t:=0;
for i:=1 to n do if a[i]=a[i+1] then t:=1 else begin if t=1 then write(a[i],' '); t:=0; end;
end.