Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.
// 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.
Замечание: Если стоит задача получить именно массив, а потом его вывести, можно написать так: // 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.
Відповідь:
1. 24576 B = 3072 bit =3 KB
2. 16384 B = 2048 bit =2 KB
3. 12288 B = 1536 bit =1.5 KB
4. 8192 B = 1024 bit =1 KB
5. 16384 B = 2048 bit =2 KB
6. 131072 B = 16384 bit =16 KB