Вычислить среднее арифметическое тех положительных элементов массива, которые делятся на 4 без остатка

input "число эдементов массива"; n
dim k(1 to n)
for i=1 to n
input "Значение элемента"; k(i)
next

DIM Summa as double, A as double, B as double, minC as double
DIM n as integer, L as integer
CLS
INPUT "число элементов массива"; n
DIM C(1 TO n) as double
Summa=0
L=0
FOR i=1 TO n
   INPUT "Значение элемента"; C(i)
   if c(i)>0 and c(i)\4=0 Then
        Summa=Summa+c(i)
        L=L+1
   end if
NEXT i
if L=0 then
   PRINT "На ноль делить нельзя"
   EXIT
else
   Summa=Summa/L
end if
FOR i=1 TO n
   if i\3=0 Then
        c(i)=c(i)*Summa
   end if
NEXT i
minC = c(2)
L=2
FOR i=3 TO n
   if i\2=0 and minC>c(i) Then
        minC=c(i)
        L=i
   end if
NEXT i
INPUT "граница А"; A
INPUT "граница B"; B
If (a-minC)*(minC-b) > 0 then
   c(L)=1
   print minC; L
else
   c(L)=0
   print "HE преднадлежит интервалу"
end if
end

DIM Summa AS DOUBLE, A AS DOUBLE, B AS DOUBLE, minC AS DOUBLE
DIM n AS INTEGER, L AS INTEGER

minC = c(2)
L=2
FOR i=3 TO n
   IF i\2=0 AND minC>c(i) THEN
        minC=c(i)
        L=i
   END IF
NEXT i

minC = c(1)
L=1
FOR i=3 TO n
   IF i\2=1 AND minC>c(i) THEN
        minC=c(i)
        L=i
   END IF
NEXT i

INPUT "граница А"; A
INPUT "граница B"; B
IF (a-minC)*(minC-b) > 0 THEN
   c(L)=1
   PRINT minC; L
ELSE
   c(L)=0
   PRINT "HE преднадлежит интервалу"
END IF
END

310 FOR i = 3 TO n
320 IF i mod 2 = 1 AND minc > c(i) THEN
330 minc = c(i)
340 l = i
350 END IF
360 NEXT i
370 INPUT "Граница A"; a
380 INPUT "Граница B"; b
390 IF (a - minc) * (minc - b) > 0 THEN
400 c(l) = 1
410 PRINT minc; l
420 ELSE
430 c(l) = 0
440 PRINT "Не пренадлежит интервалу"
450 END IF
460 END