REM
CLS
DIM A(30)
FOR i=1 TO 30
PRINT "Введите "; i;" элемент массива"
INPUT A(i)
NEXT i
FOR i=1 TO 30
IF A(i) < 0 THEN k=k+1: m=m+A(i)
IF A(i) > 0 THEN t=t+1: s=s+A(i)
NEXT i
PRINT "Сумма положительных элементов="; s; "Количество положительных элементов"; t
PRINT "Сумма отрицательных элементов"; m; "Количество отрицательных элементов"; k
END