MarKud_4

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