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

[SUPER_1]

Список создал, вывел.
Нужна помощь с перемещением элементов.

[ViktorR]

У каждого языка программирования могут быть свои особенности.
В целом: отсортируйте список, например, по убыванию, и удалите повторяющиеся элементы переместив их в новый список.
Например, при создании динамического списка в Pascal, достаточно правильно передать ссылки, а не перемещать элемент списка в памяти.

[сфинкс]

'spizok.bas
n = 7: DIM a(n), b(n): f = 0: s = 0: RANDOMIZE TIMER
FOR i = 1 TO n: a(i) = INT(RND * 7) + 1: PRINT a(i);: NEXT: PRINT

FOR i = 1 TO n - 1: FOR j = i + 1 TO n
        IF a(i) > a(j) THEN SWAP a(i), a(j)
NEXT: NEXT

FOR i = 1 TO n: PRINT a(i);: NEXT: PRINT

FOR i = 1 TO n - 1
    IF a(i) = a(i + 1) THEN IF f = 0 THEN s = s + 1: b(s) = a(i): f = 1
    IF a(i) <> a(i + 1) THEN f = 0
NEXT

FOR i = 1 TO s: PRINT b(i),: NEXT
END

из qb64 qbasic на другие языки переводим сами

Результат:
3 5 2 5 1 2 2
1 2 2 2 3 5 5
2 5