{* Задача95 *}

REM basic

' Определить номера строк матрицы с чередующимся знаком


For i=1 To m
f=0
For j=2 To n
If a(i)*a(i-1)>=0 Then f=1
Next
If f=0 rhen PRINT i
Next
End