zadach118.BAS

{* Задача118 *}

REM basic

' Вычислить сумму и количество положительных и отрицательных эле-
' ментов массива D(n), установить каких (положительных или отрица-
' тельных) элементов больше.


CLS
INPUT "kol-vo elementov?"; n
Dim d(n)
PRINT "massiv:"
For i = 1 To n
    d(i) = FIX(100 * RND(1) - 50)
    PRINT d(i);
Next
PRINT
For i = 1 To n
    If d(i) < 0 Then k1 = k1 + 1: s1 = s1 + d(i): Else k2 = k2 + 1: s2 = s2 + d(i)
Next i
PRINT
PRINT "summa otricatelnih:"; s1
PRINT "kol-vo otricatelnih:"; k1
PRINT "summa pologitelnih:"; s2
PRINT "kol-vo pologitelnih"; k2
PRINT
If k1 > k2 Then PRINT "otricatelnih bolshe"
If k1 < k2 Then PRINT "pologitelnih bolshe"
If k1 = k2 Then PRINT "odinakovoe kol-vo"
End