//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2
КОНФИГУРАЦИЯ
------------------------------------
1) поместится 4000 байт, т.к. 4000 байт=4000/1024=3.9Кб
не поместится 5600 байт, т.к. 5600 байт=5600/1024=5.4Кб
Ответ: Поместится *pdf
Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000