CLS
INPUT "введи размер массива " ; n
DIM A%(n)
PRINT "введи массив"
'Цикл по элементам массива
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
'Присваивание начального значения суммы
S = 0
FOR i = 1 TO n
'Суммирование положительных элементов массива
IF A(i) > 0 THEN S = S + A(i)
NEXT i
PRINT "Сумма положительных элементов ="; S
END