Объяснение:
1д ж о й с т и 3к 6т
л р 8н
5к а м е р а 9м ы ш ь
в к у о
2к о л о н к и б ш н
а о н 11п и
4п л а н ш е т л и л т
у к о о
7с к а н е р 10п р и н т е р
а т
е
12м и к р о ф о н
По горизонтали: По вертикали:
1. джойстик
2. колонки
4. планшет
5. камера
7. сканер
9. мышь
10. принтер
12. микрофон 3. клавиатура
6. трекбол
8. наушники
9. монитор
11. плоттер
// 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