DIM N AS INTEGER
DIM I AS INTEGER
DIM K AS INTEGER
DIM SUM AS DOUBLE
CLS
INPUT "BBEDITE PA3MEP MACCIBA N:", N
DIM X(1 TO N) AS DOUBLE
LET SUM=0
LET K=0
FOR I=1 TO N
INPUT "BBEDITE X(" & CSTR(I) & ") MACCIBA:", X(I)
IF X(I)>0
LET SUM=SUM+X(I)
LET K=K+1
END IF
NEXT N
PRINT "KOЛ-ВО ПОЛОЖИТЕЛЬНЫХ=",K,"СУММА=",SUM
FOR I=1 TO N
PRINT "X(" & CSTR(I) & ")=", X(I)
NEXT N
END