Решите пожалуйста две задачи.

[Bagsi]

НА ПАСКАЛЕ
1. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Определить, Сколько раз в этой последовательности меняется знак. (Например, в последовательности 1,-34,8,14,-5 знак меняеться 3 раза).
2. Дана последовательность из n целых чисел(n=50). Выявить отрезки возрастания в этой последовательности и вывести каждый из них на экран с новой строки.

[AlDelta]

На чем писать-то?

На глупые вопросы мы отвечать не хотим, а на умные - не можем

[Bagsi]

РЕШИТЬ НА ПАСКАЛЕ

[Plague]

к задаче 2

вывести a(1)
в цикле от 2 до N проверяем соседние элементы
{
если a(i-1)>a(i) то переход на новую строку;
вывести a(i)
}

думаю множество из одного элемента тоже является отрезком

[puporev]

Задача№1, бывшая №2.
Заполнение последовательности числами сделал вручную.
Не могу придумать, как заполнить с помощью Random, чтобы были и положительные и отрицательные, но чтобы не было ноля. Может кто подскажет, тогда переделаю прогу.

[Stilet]

Вот первая задача :

const a:array[1..10] of real=(1,2,3,-4,-5,6,-7,8,-9,0);
var k,e:integer;
begin
e:=0;
for k:=1 to (sizeof(a) div sizeof(real))-1 do
if a[k]*a[k+1]<0 then inc(e);
write(e);
end.

Она будет тебе стимулом к раздумываниями над второй