Дан массив А(6). Найти сумму и количество положительных элементов, расположенных между минимальным и максимальным элементами.

DIM a(6)FOR i = 1 TO 6    INPUT a(i)NEXT imin = a(1)max = a(1)imin = 1imax = 1FOR i = 2 TO 6    IF a(i) < min THEN        min = a(i)        imin = i    END IF    IF a(i) > max THEN        max = a(i)        imax = i    END IFNEXT iIF imin < imax THEN    FOR i = imin + 1 TO imax - 1        IF a(i) > 0 THEN            sum = sum + a(i)            k = k + 1        END IF    NEXT i    PRINT "summa="; sum, "k="; kELSE PRINT "Решения нет"END IF