Программа

K=6                'Определение количества элементов в массиве
DIM A(K)           'Исходный массив
DIM P%(K)          'Получаемый массив

DEF FNGet%(p)    'Функция проверки принадлежности аргумента заданному интервалу
  IF X<=p AND p<=Y THEN FNGet%=1 ELSE FNGet%=0    'Определение значения функции
END DEF

'Ввод исходного массива:
CLS                'Очистка экрана
FOR i%=1 TO K      'Цикл ввода массива
  PRINT "Введите элемент A[";i%;"] "; 'Вывод приглашения ввести элемент массива
  INPUT ,A[i%]                        'Ввод элемента массива
NEXT i%
INPUT "Введите X ";X  'Ввод X
INPUT "Введите Y ";Y  'Ввод Y
CLS                   'Очистка экрана
'Вывод исходного массива:
PRINT "Исходный массив:"         'Вывод заголовка
FOR i%=1 TO K                    'Цикл вывода массива
  PRINT "A[";i%;"] =";A[i%]         'Ввод элемента массива
NEXT i%
PRINT                 'Пропуск строки
PRINT "X=";X;" Y=";Y  'Вывод X и Y
PRINT                 'Пропуск строки
'Обработка массива
FOR i%=1 TO K      'Цикл обработки массива
  P%[i%]=FNGet%(A[i%]) 'Определение элемента массива
NEXT i%
'Вывод полученного массива:
PRINT "Полученный массив:"         'Вывод заголовка
FOR i%=1 TO K                      'Цикл вывода массива
  PRINT "P[";i%;"] =";P%[i%]          'Вывод элемента массива
NEXT i%
END