Дана целочисленная последовательность, каждый член которой a: 1amp;lt;= a amp;lt;= 255.

Дана целочисленная последовательность, каждый член которой a: 1lt;= a lt;= 255. Удалить из последовательности числа "дублеры". Т.е. бросить все не повторяющиеся числа, а так же из циклических несколько раз (более одного) бросить по одному числу. Оставшиеся числа расположить в порядке возрастания.
Входные данные имеют последующую структуру: поначалу идет число членов последовательности, а потом члены последовательности.
К примеру. Вход: 8 45 13 24 45 2 13 61 13 . Выход: 2 13 24 45 61.
Начальные данные вводятся с подмогою файла. ВЫВОД МОЖЕТ БЫТЬ В ФАЙЛ Либо НА ЭКРАН МОНИТОРА.
входные файлы оформлять именами test.in, выходные - rez.out.

Задать свой вопрос
1 ответ

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var s:=ReadAllText('test.in');

 s.ToIntegers.Skip(1).Distinct.Sorted.Println

end.

Леонид Россадко
Замечание: программка пренебрегает значение первого числа (количество частей последовательности), поэтому его значение роли не играет.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт