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

0 голосов
23 просмотров

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


Информатика (15 баллов) | 23 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

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

begin

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

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

end.


image
(654k баллов)
0

Замечание: программа игнорирует значение первого числа (количество элементов последовательности), поэтому его значение роли не играет.