дан массив. выведите его элементы, которые встречаются в массиве только один раз

Var
a: array [1..10] of integer;
i,b : integer;
begin
randomize;
writeln(b=);
readln(b);
for i:=1 to 10 do
a[i]:=Random(10);
for i:=1 to 10 do
if A[i]= b then
writeln(есть,A[i])
else
writeln(нет такого )
end.

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