uses crt;
const n=20;
var a:array[1..n] of integer;
i,j,k,p:byte;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
writeln;
writeln('Элементы, встречающиеся 1 раз:');
p:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if (a[i]=a[j])and(i<>j) then k:=1;
if k=0 then
begin
p:=1;
write(a[i],' ');
end;
end;
if p=0 then writeln('Все элементы повторяются');
readln
end.