DanVol_1

DIM N AS INTEGER
DO
    INPUT "Input array size [1..25]: ", N
LOOP WHILE N < 1 OR N > 25
DIM A(1 TO N) AS INTEGER, B(1 TO N) AS INTEGER, C(1 TO N) AS INTEGER
DIM D(1 TO N) AS INTEGER, F(1 TO N) AS INTEGER, I AS INTEGER
DIM PI AS INTEGER, NI AS INTEGER
PI = 1: NI = 1
FOR I = 1 TO N
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
    IF A(I) > 0 THEN
        B(PI) = A(I)
        D(PI) = I
        PI = PI + 1
    ELSEIF A(I) < 0 THEN
        C(NI) = A(I)
        F(NI) = I
        NI = NI + 1
    END IF
NEXT I
PRINT "B And D arrays:"
FOR I = 1 TO PI - 1
    PRINT "B("; I; ") ="; B(I);
    PRINT "; D("; I; ") ="; D(I)
NEXT I
PRINT "C And F arrays:"
FOR I = 1 TO NI - 1
    PRINT "C("; I; ") ="; C(I);
    PRINT "; F("; I; ") ="; F(I)
NEXT I