Дана целочисленная последовательность, каждый член которой a: 1<= a <= 255. Удалить из последовательности числа "дублеры". Т.е. оставить все не повторяющиеся числа, а так же из повторяющихся несколько раз (более одного) оставить по одному числу. Оставшиеся числа расположить в порядке возрастания.
Входные данные имеют следующую структуру: сначала идет число членов последовательности, а потом члены последовательности.
Например. Вход: 8 45 13 24 45 2 13 61 13 . Выход: 2 13 24 45 61.
Исходные данные вводятся с помощью файла. ВЫВОД МОЖЕТ БЫТЬ В ФАЙЛ ИЛИ НА ЭКРАН МОНИТОРА.
входные файлы оформлять именами test.in, выходные - rez.out.
Ответы
Ответ дал:
0
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadAllText('test.in');
s.ToIntegers.Skip(1).Distinct.Sorted.Println
end.
Приложения:
Ответ дал:
0
Замечание: программа игнорирует значение первого числа (количество элементов последовательности), поэтому его значение роли не играет.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
10 лет назад