Вот решение твоей задачки
ПС программу проверял. она отлично работает!!!!!!!!!!!!!!!!!!!!!!!!!!
1) a= 4096, L= 1/512 Мб= 16384 бит
N= 2^i, ищем i
i=L/a= 16384/4096=4
i=4бита
N=2^4=16
48•64=3072 всего символов
3072•8=24576 бит
24576÷8000=3.072 кб
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.