Даны целые числа а1,...,аn (в этой последовательности могут быть повторяющиеся члены). получить все числа, которые входят в последовательность по одному разу.

Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить. var   a:array[1..n] of integer;   i,j,t:integer; begin   { инициализация массива }   Randomize;   Writeln('Элементы массива');   for i := 1 to n do   begin     a[i]:=Random(10);     Write(a[i]:3);   end;   Writeln;   { сортировка по возрастанию методом пузырька }   for i := 1 to n-1 do     for j := 1 to n-i do       if a[j] > a[j+1] then       begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;   { вывод неповторяющихся значений }   Writeln('Уникальные значения элементов');   t:=a[1]; Write(t:3);   for i:=2 to n do     if a[i]<>t then begin t:=a[i]; Write(t:3) end;   Writeln end. Тестовое решение: Элементы массива   9  6  1  6  1  4  5  9  1  2  6  7  7  6  1  7  7  8  0  8 Уникальные значения элементов   0  1  2  4  5  6  7  8  9