EdeLar_1

DIM Z(1 TO 20) AS INTEGER, Z1(1 TO 20) AS INTEGER, I AS INTEGER
DIM J AS INTEGER, C AS INTEGER, M AS SINGLE
INPUT "Input C: ", C
PRINT "Input array:"
FOR I = 1 TO 20
    PRINT "Z("; I; ") = ";
    INPUT "", Z(I)
    IF Z(I) >= C THEN
        J = J + 1
        Z1(J) = Z(I)
    END IF
NEXT I
CLS
PRINT "Result array:"
FOR I = 1 TO J
    PRINT "Z1("; I; ") ="; Z1(I)
    M = M + Z1(I)
NEXT I
M = M / J
PRINT "Mid = "; M