{* Задача10 *}

REM basic

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


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