Question

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

Answer 1

// PascalABC.NET 3.3

begin
  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.

Пример:
10
82 83 53 79 31 34 24 66 47 44
31 53 79 82 83 66 47 44 34 24

Answer 2

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)).Println
end.

Пример
n= 10
53 -39 49 22 -18 40 -40 -9 -16 0
-39 -18 22 49 53 40 0 -9 -16 -40