CLS
INPUT "inoput N ", N
DIM B(N) AS INTEGER
FOR i = 1 TO N STEP 2
j = j + 1
B(i) = j
IF i < N THEN
B(i + 1) = -j
END IF
NEXT i
FOR i = 1 TO N
PRINT B(i);
NEXT i
CLS
INPUT "inoput N ", N
DIM B(N) AS INTEGER
FOR i = 1 TO N STEP 2
j = j + 1
B(i) = j
IF i < N THEN
B(i + 1) = -j
END IF
NEXT i
FOR i = 1 TO N
PRINT B(i);
NEXT i