MarKud_3

DIM A(1 TO 15) AS INTEGER, Min AS INTEGER, IMin AS INTEGER, I AS INTEGER
CLS
Min = 32767: IMin = Min
RANDOMIZE TIMER
FOR I = 1 TO 15
    A(I) = INT(RND * 20)
    IF I MOD 2 = 0 AND IMin > A(I) THEN
        IMin = A(I)
    END IF
    IF Min > A(I) THEN Min = A(I)
    PRINT "A("; I; ") ="; A(I)
NEXT I
PRINT "MIN="; Min
PRINT "imin="; IMin;