В одной из ко­ди­ро­вок Unicode каж­дый сим­вол ко­ди­ру­ет­ся 16 би­та­ми. Вова на­пи­сал текст (в нём нет лиш­них про­бе­лов):

 

«Ёж, лев, слон, олень, тю­лень, но­со­рог, кро­ко­дил, ал­ли­га­тор — дикие жи­вот­ные».

 

Уче­ник вы­черк­нул из спис­ка на­зва­ние од­но­го из жи­вот­ных. За­од­но он вы­черк­нул став­шие лиш­ни­ми за­пя­тые и про­бе­лы — два про­бе­ла не долж­ны идти под­ряд.

При этом раз­мер но­во­го пред­ло­же­ния в дан­ной ко­ди­ров­ке ока­зал­ся на 16 байт мень­ше, чем раз­мер ис­ход­но­го пред­ло­же­ния. На­пи­ши­те в от­ве­те вы­черк­ну­тое на­зва­ние жи­вот­но­го.

В 2сс:
27=16+8+2+1=2^4+2^3+2^1+2^0=1 1011  (2cc)
0,|27 * 2          
 0|54  *2          
 1|08  *2         
 0|16  *2        
 0|32  *2
 0|64 *2
 1|28 *2  
 0|56 *2
 1|12 *2
 0|24 *2
 0|48 *2
 0|96 *2
 1|92 *2
 1|84 *2
 1|68 *2
 1|36 *2
 0|72 *2
 1 |44 *2
 0|88 *2
 1|76 *2
 1|52
  +1
1|04                            (последний байт при приближении =1100)

27, 27 = 1 1011, 0100 0101 0001 1110  1100  (в2сс) ≈11011,01001
27,27 =   1 B     ,   4       5      1        E       B   =  1B,451EC (в 16сс)

27, 27 =  11 011, 010  001  010  111 (в 2сс) =33,21217 ( в 8сс)
                3    3,     2     1      2       7
 

      

Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.