Программа

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