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

Ответы 2

  • Замечание: программа игнорирует значение первого числа (количество элементов последовательности), поэтому его значение роли не играет.
  • // PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

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

    begin

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

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

    end.

    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years