{* Задача89 *}

REM basic

' В простую переменную последовательно вводится N чисел, отличных от нуля. Положительные или отрицательные числа завершают последовательность и сколько их?


10 { + или - в конце последовательности?
}20 KP% - 0: KM% = 0: N% = 20
30 For I = 1 To N%
40 INPUT "Очередное число ="; X
50 If X = 0 Then 40
60 If X > 0 Then KP% = KP% +1: KM% = 0
70 If X < 0 Then KM% = KM% +1: KP% = 0
80 Next I
90 PRINT "Последовательность завершают {;
}100 If SGN(X) > 0 Then PRINT {положительные числа в количестве{; KP%
}}110 If SGN(X) < 0 Then PRINT {отрицательные числа в количестве{; KM%
}}120 End