{* Задача11 *}

REM basic

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


CLS
INPUT "Введите число элементов массива"; n
Dim  a(n)
K=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 K=K+1
Next i
PRINT "K="; К
End