Код:
var x:array[1..100] of Real;
i,n:integer;
p:boolean;
begin
Write('N = ');
Readln(n);
Writeln;
for i:=1 to n do
Read(x[i]);
Writeln;
p:=true;
for i:=2 to n do
begin
if x[i]>0
then
if x[i-1]>0 then
begin
p:=false;
Break;
end;
if x[i]<0
then
if x[i-1]<0 then
begin
p:=false;
Break;
end;
end;
if p
then Writeln('Znakocereduyushayasya')
else Writeln('Ne znakocereduyushayasya');
Readln;
end.