2проверь с эт закон моргана x v y = x •y​

В тер­ми­но­ло­гии сетей TCP/IP мас­кой сети на­зы­ва­ет­ся 32-раз­ряд­ная дво­ич­ная По­сле­до­ва­тель­ность, опре­де­ля­ю­щая, какая часть IP-ад­ре­са узла сети от­но­сит­ся к ад­ре­су сети, а какая – к ад­ре­су са­мо­го узла в этой сети. При этом в маске сна­ча­ла (в стар­ших раз­ря­дах) стоят еди­ни­цы, а затем с не­ко­то­ро­го места нули.Адрес сети по­лу­ча­ет­ся в ре­зуль­та­те при­ме­не­ния по­раз­ряд­ной конъ­юнк­ции к за­дан­но­му IP-ад­ре­су узла и маске. Обыч­но маска за­пи­сы­ва­ет­ся по тем же пра­ви­лам, что и IP-адрес – в виде четырёх бай­тов, причём каж­дый байт за­пи­сы­ва­ет­ся в виде де­ся­тич­но­го числа.При­мер. Пусть IP-адрес узла равен 231.32.255.131, а маска равна 255.255.240.0. Тогда адрес сети равен 231.32.240.0. Для узла с IP-ад­ре­сом 227.138.127.144 адрес сети равен 227.138.64.0. Чему равен тре­тий слева байт маски? ответ за­пи­ши­те в виде де­ся­тич­но­го числа.

По­яс­не­ние.12710 = 01111111206410 = 010000002За­ме­тим, что в маске во вто­ром бите слева долж­на сто­ять еди­ни­ца, а в тре­тьем бите слева — ноль. И так как мы знаем про маски, что в них сна­ча­ла идут еди­ни­цы, а потом нули, то по­лу­ча­ем, что тре­тий слева байт равен 110000002 = 19210
Пра­виль­ный ответ: 192

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

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