Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
//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.
Нева - Вена
Куба - Баку
Ирак - Каир
Эльбрус - Эльбурс
Токио - Киото
1туда 2 кота
2туда сабаку
3туда 2 гусей обратно 2 котов
4туда гуся
5туда 2 кота
Вот держи.. Было очень легко.. Надеюсь ты поймёшь как это делать.