niz od n brojeva, sortirati ih od največeg DO najmanjeg, ispisati proste brojeve. u datoteci napisati minimum prostih brojeva i aritmetičku sredinu i ispisati iz datoteke

CLS

INPUT "Unesi broj unosa: "; n

PRINT "Unesi brojeve: "
FOR i  = 1 TO n
    INPUT a(i)
NEXT i

red(1) = a(1)

FOR i = 1 TO n
    FOR j = 2 TO n
        IF a(j) > red(i) THEN
            tmp = red(i)
            red(i) = a(j)
            a(j) = tmp
        END IF
    NEXT j
NEXT i

PRINT
PRINT "Poredani niz: "
PRINT

FOR i = 1 TO n
    PRINT red(i)
NEXT i

k = 0
p = 1
total = 0

PRINT
PRINT "Prosti brojevi: "
PRINT

FOR i = 1 TO n
    IF red(i) > 2 THEN
    FOR j = 2 TO (red(i) - 1)
        IF red(i) MOD j = 0 THEN
            p = 0
        END IF
    NEXT j

    IF p = 1 THEN
        k = k + 1
        prost(k) = red(i)
        PRINT prost(k)
        total = total + prost(k)
    END IF
    p = 1
    END IF
NEXT i

PRINT
asred = total / k
PRINT "Aritmeticka sredina prostih brojeva: "; asred
PRINT "Najmanji prosti broj: "; prost(k)

OPEN "brojevi.dat" FOR OUTPUT AS #1
    WRITE #1, prost(k)
    FOR i = 1 TO k
        WRITE #1, prost(i)
    NEXT i
CLOSE #1

PRINT
PRINT "Ispis iz datoteke: "
PRINT

OPEN "brojevi.dat" FOR INPUT AS #1
    INPUT #1, min
    PRINT "Minimum: "; min
    PRINT "Prosti brojevi: "
    DO UNTIL EOF(1)
        INPUT #1, prost
        PRINT prost
    LOOP
CLOSE #1

END