profile
Размещено 5 лет назад по предмету Информатика от solnce2300

В файле записано не более 100 чисел. Отсортировать их по возрастанию последней цифры и записать в другой файл. Pascal.

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.

    // PascalABC.NET 3.2, сборка 1417 от 28.03.2017
    // Внимание! Если программа не работает, обновите версию!

    procedure MakeFile(path:string);
    // не относится к заданию, создает файл Text со 100 числами
    begin
      WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString))
    end;

    begin
      MakeFile('MyFile1.txt');
      // теперь у нас есть текстовый файл из 100 случайных чисел
      // собственно, решение
      var n:=ReadInteger('Укажите количество чисел:');
      var a:=ReadLines('MyFile1.txt').Take(n).ToArray;
      Writeln('Исходная последовательность'); a.Println;
      Writeln('Результирующая последовательность');
      a:=a.OrderBy(x->x.Last).ToArray; a.Println;
      WriteAllLines('MyFile2.txt',a);
    end.

    Пример
    Укажите количество чисел: 15
    Исходная последовательность
    51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64
    Результирующая последовательность
    -20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.