{* Задача128 *}

REM basic

' Сформулировать из 8 натуральных случайных чисел в диапозоне от -10 до 10.найти кол-во положительных элементов массива и их сумму.


Dim a(8)
PRINT "massiv"
For i=1 To 8 
a(i)=INT(RND*21)-10
PRINT a(i);
If a(i)>0 Then kol=kol+1:s=s+a(i)
Next
PRINT
PRINT"kolichestvo=";kol
PRINT "summa=";s
End