Паскаль. задачи

[Bagsi]

1. Дано n вещественных чисел(n=20). Оперделить, сколько из них больше свойх "соседей", т.е. предыдущего и последующего чисел.
2. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Определить, Сколько раз в этой последовательности меняется знак. (Например, в последовательности 1,-34,8,14,-5 знак меняеться 3 раза).
3. Дана последовательность из n целых чисел(n=50). Выявить отрезки возрастания в этой последовательности и вывести каждый из них на экран с новой строки.

[puporev]

Задача № 1.

[Bagsi]

Большое спасибо

[Tayfun]

2.

program znaki;
uses crt;
const max_n=100;
label 1;
var
a:array[1..max_n] of integer;
p,i,n:integer;
b:boolean;
begin
clrscr;
randomize;
writeln('VVEDITE KOLICHESTVO ELLEMENOT POSLEDOVATELYNOSTY');
readln(n);
for i:=1 to n do begin
1:a[i]:=random(100)-50;
if a[i]=0 then goto 1;
write(a[i],' ');
end;
if a[1]>0 then b:=false else b:=true;
for i:=1 to n do begin
if (a[i]>0) and (b=true) then begin b:=false; p:=p+1; end;
if (a[i]<0) and (b=false) then begin b:=true; p:=p+1; end;

end;
writeln;
writeln(p);
readkey;
end.