Язык Pascal

[Олес]

Язык Pascal

Вводится последовательность из N вещественных чисел. Определить
является ли последовательность знакочередующейся.

 

[Евгений]

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.

 

[Олес]

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