C3. Уникальные элементы Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input. txt
Вывод стандартный вывод или output. txt
Распечатайте только те значения элементов массива, которые встречаются в нем ровно один раз.

Формат ввода
На вход программе сначала подается значение n ≤ 100 — количество элементов в массиве.

В следующей строке входных данных расположены сами элементы массива — целые числа, по модулю не превосходящие 30000.

Формат вывода
Элементы следует распечатывать в том порядке, в котором они встречаются в массиве.

Создавать новые массивы нельзя.

Пример
Ввод Вывод
8
4 3 5 2 5 1 3 5
4 2 1
https://pastenow. ru/27d8a0fd4dd3505535eb963b06af6aea

программа на паскале:

program xxx;

  var i, n, s : integer;

begin

  write ('введите n =' );

  readln (n);

  s: =0;

  for i: =1 to n do

    s: = s+ sqr(i+1);

  writeln ('сумма =' , s);

  readln

end. 

1) 35-25=10 (чел.) - не являются читателями школьной библиотеки

2) 35-20=15 (чел.) - не являются читателями районной библиотеки

3) (25+20)-35=10 (чел.) - читатели обеих библиотек

4) 20-10=10 (чел.) - читатели только районной библиотеки

5) 25-10=15 (чел.) - читатели только школьной библиотеки

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.