Решите в паскале, . 1)дан массив, отсортировать все его элементы до максимального по возрастанию. 2)дан массив, отсортировать все его элементы от минимального по возрастанию. 2)дан массив, отсортировать все его элементы от максимального до минимального по убыванию.
Внимание! Если программа не работает, обновите версию!
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