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

В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

ответ: а в а в а п р с ь

объяснение: