Question

Удаление дубликатов
Напишите программу, которая выполняет "сжатие массива" – заполняет все копии уже ранее встречавшихся элементов нулями и переставляет все нулевые элементы в конец массива. При этом все оставшиеся элементы располагаются в начале массива в том же порядке, что и в исходном массиве.

Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .

Выходные данные
Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.

Примеры
входные данные
6
0 1 2 1 2 3
выходные данные
1 2 3 0 0 0

Answer 1

##

var n := ReadInteger;

var a := ReadArrInteger(n); // массив создан

a := a.Where(t -> t > 0).Distinct.ToArray;

SetLength(a, n);

a.Print