{* Задача379 *}

REM basic

' Определить сколько раз меняется знак в числовой последовательности


CLS
  INPUT "Vvedite kol-vo elementov : ", n
  Dim A(n), B(n)
For i = 1 To n
  PRINT "Vvedite chislo N"; i; : INPUT ": ", A(i)
Next
For i = 2 To n
  If SGN(A(i - 1))  SGN(A(i)) Then k = k + 1: B(k) = i
Next: PRINT
PRINT " Izmenenij znaka : "; k
PRINT " Pozicii:"
For i = 1 To k
  PRINT B(i);
Next
End