По информатике решить⊂((・▽・))⊃

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

Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 215 бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 219 бит/с). 

Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 220 байт = 5 * 223 бит. 

Время задержки:  = 512 кб / 219 бит/с = 2(9 + 10 + 3) - 19 c = 23 c. 

Время скчивания данных Мишей:  = 5 * 223 бит / 215 бит/с = 5 * 28 c. 

Полное время:  = 5 * 28 c + 23 c = (256 * 5 + 8) c = 1288 c. 

ответ: 1288.