PascalABCNET : Ввести и упорядочить последовательность из N натуральных чисел таким об-разом, чтобы она возрастала до середины, а затем убывала.

// PascalABC.NET 3.3begin  var n:=ReadInteger;  var a:=ArrRandom(n,10,90); a.Println;  a:=a[0:n div 2].Sorted.ToArray+a[n div 2:n].SortedDescending.ToArray;  a.Println;end.Пример:1082 83 53 79 31 34 24 66 47 4431 53 79 82 83 66 47 44 34 24

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,-50,60); a.Println;  (a[:n div 2].OrderBy(t->t)+a[n div 2:].OrderByDescending(t->t)).Printlnend.Примерn= 1053 -39 49 22 -18 40 -40 -9 -16 0-39 -18 22 49 53 40 0 -9 -16 -40