/////////////////////////////////////
//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.
В древнее время первобытные люди записывали или же вырезали информацию на камнях в скалах,пещерах.Они рисовали животных,сцены охоты.В древнем Египте люди использовали папирус,сделанный из бамбука.На сегодняшний день мы можем записывать информацию в интернете,блокноте и т.Д.