Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. Выведите **...

Question

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. Выведите на экран в порядке возрастания только те из них, которые встречаются в данной последовательности ровно один раз.
ВХОДНЫЕ ДАННЫЕ

В первой строке вводится одно число n — натуральное, не превосходящее 10000.
Во второй строке вводятся n натуральных чисел, не превосходящих 100.
ВЫХОДНЫЕ ДАННЫЕ

Выведите в порядке возрастания те из них, которые встречаются в последовательности ровно один раз.

Answer 1

См. файл во вложении

---

Скачать вложение Текст (TXT)

Comments

да

---

спс

---

Это для любого Паскаля. Даже для того, который еще не придумали!

---

а как его сохранить в формате нужном

---

var
arr: array[1..100] of longint;
x, n, i: longint;
begin
readln(n);
for i := 1 to 100 do
arr[i] := 0;
for i := 1 to n do
begin
read(x);
inc(arr[x]);
end;
for i := 1 to 100 do
if arr[i] = 1 then
write(i, ' ');
end.