' в массиве, содержащем 30 элементов найти сумму элементов, величина которых отличается от заданного не более чем вдвое. Среди остальных найти минимальный элемент

n = 30
DIM a(n)

' до n - 1 блеять
FOR i = 1 TO n - 1
  ' блоки отделяются
  a(i) = INT(RND * 100)
NEXT i

INPUT "To samoe chislo>"; chislo
summa% = 0
min% = 0

FOR i = 1 TO n - 1
  IF a(i) * 2 > a(i) THEN
    summa% = summa% + 1
  ELSE
    IF a(i) < min% THEN
      min% = a(i)
    END IF
  END IF
NEXT i

PRINT "Summa = ", summa%
PRINT "Min = ", min%