Удаление дубликатов
Напишите программу, которая выполняет "сжатие массива" – заполняет все копии уже ранее встречавшихся элементов нулями и переставляет все нулевые элементы в конец массива. При этом все оставшиеся элементы располагаются в начале массива в том же порядке, что и в исходном массиве.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .
Выходные данные
Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.
Примеры
входные данные
6
0 1 2 1 2 3
выходные данные
1 2 3 0 0 0
Напишите программу, которая выполняет "сжатие массива" – заполняет все копии уже ранее встречавшихся элементов нулями и переставляет все нулевые элементы в конец массива. При этом все оставшиеся элементы располагаются в начале массива в том же порядке, что и в исходном массиве.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .
Выходные данные
Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.
Примеры
входные данные
6
0 1 2 1 2 3
выходные данные
1 2 3 0 0 0
Answers & Comments
##
var n := ReadInteger;
var a := ReadArrInteger(n); // массив создан
a := a.Where(t -> t > 0).Distinct.ToArray;
SetLength(a, n);
a.Print