Question

Решите в паскале, . 1)дан массив, отсортировать все его элементы до максимального по возрастанию. 2)дан массив, отсортировать все его элементы от минимального по возрастанию. 2)дан массив, отсортировать все его элементы от максимального до минимального по убыванию.

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Print('1:'); a?[:imax].OrderBy(t->t).Println;
  Print('2:'); a?[:imin].OrderBy(t->t).Println;
  Print('3:');
  if imax>imin then Swap(imax,imin);
  a?[imax+1:imin].OrderByDescending(t->t).Println
end.

Пример
n= 13
-18 42 -49 -40 -28 15 4 48 -37 23 44 27 21
1: -49 -40 -28 -18 4 15 42
2: -18 42
3: 15 4 -28 -40