{* Задача15 *}

REM basic

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


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