{* Задача14 *}

REM basic

' Найти число неотрицательных и отрицательных элементов одномерного массива


CLS
INPUT "Введите число элементов массива"; n
Dim  a(n)
K1=0
K2=0
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
{цикл вывода исходного одномерного массива
}For i=1 To n
PRINT a(i)
Next i
PRINT
For i=1 To n
If a(i)>=0 Then K1=K1+1 Else K2=K2+1
Next i
PRINT "K1="; К1
PRINT "K2="; К2
End