NikKov_2

DIM N AS INTEGER, S AS LONG, PC AS INTEGER, I AS INTEGER, J AS INTEGER
DO
    INPUT "Input N [2..100]: ", N
LOOP WHILE N <= 1 OR N > 100
DIM X(1 TO N) AS INTEGER
RANDOMIZE TIMER
PRINT "Original array:"
FOR I = 1 TO N
    X(I) = INT(RND * 100) - 25
    PRINT "X("; I; ") ="; X(I)
    IF X(I) > 0 THEN
        PC = PC + 1
        S = S + X(I)
    END IF
NEXT I
PRINT "Positive values count:"; PC
PRINT "Sum ="; S
FOR J = 1 TO N - 1
    FOR I = 1 TO N - J
        IF X(I) > X(I + 1) THEN SWAP X(I), X(I + 1)
    NEXT I
NEXT J
PRINT "Result array:"
FOR I = 1 TO N
    PRINT "X("; I; ") ="; X(I)
NEXT I