AnLev_2

DIM N AS INTEGER, PC AS INTEGER, NC AS INTEGER, I AS INTEGER
CLS
DO
    INPUT "Input N [2..100]: ", N
LOOP WHILE N < 2 OR N > 100
DIM A(1 TO N + 2) AS INTEGER
RANDOMIZE TIMER
FOR I = 1 TO N
    A(I) = INT(RND * 50) - 25
    IF A(I) > 0 THEN
        PC = PC + 1
    ELSEIF A(I) < 0 THEN
        NC = NC + 1
    END IF
NEXT I
A(N + 1) = PC * (100 / (PC + NC))
A(N + 2) = 100 - A(N + 1)
PRINT "Результирующий массив:"
FOR I = 1 TO N + 2
    PRINT A(I);
NEXT I