Программа

DECLARE SUB ProcessVector (B!())
DECLARE SUB InputVector (B!())
DECLARE SUB OutputVector (B!())
DECLARE SUB GetMinMaxElementVector (B!(), Min!, Max!)

QuantityElement% = 4 ' Количество элементов вектора
DIM A(QuantityElement%) ' Вектор

PRINT ' Пропуск строки
CALL InputVector(A())  ' Ввод вектора
PRINT ' Пропуск строки
PRINT " Вектор: "  ' Вывод заголовка
CALL OutputVector(A()) ' Вывод вектора
CALL GetMinMaxElementVector(A(), Min, Max)
                   ' Получение минимального и максимального элементов вектора
PRINT ' Пропуск строки
PRINT "Min="; Min; "  Max="; Max  ' Вывод минимального и максимального элементов вектора
CALL ProcessVector(A())  ' Обработка вектора
END

SUB GetMinMaxElementVector (B(), Min, Max)
          ' Процедура поиска максимального и минимального элементов вектора
  Max = B(1)  ' Начальное определение максимального элемента
  Min = B(1)  ' Начальное определение минимального элемента
  FOR i% = 1 TO UBOUND(B)  ' Цикл просмотра элементов вектора
      IF B(i%) > Max THEN Max = B(i%)  ' Если текущий элемент
         ' превосходит максимальный, то - переопределение максимального
      IF B(i%) < Min THEN Min = B(i%)' Если текущий элемент меньше
                        ' минимального, то - переопределение минимального
  NEXT i%
END SUB

SUB InputVector (B())   ' Процедура ввода вектора
  FOR i% = 1 TO UBOUND(B)  ' Цикл вывода элементов вектора
    PRINT "Введите элемент ["; i%; "]";
                                   ' Вывод приглашения ввести элемент вектора
    INPUT " ", B(i%)  ' Ввод элемента вектора
  NEXT i%
END SUB

SUB OutputVector (B())  ' Процедура вывода вектора
  FOR i% = 1 TO UBOUND(B)  ' Цикл вывода элементов вектора
    PRINT B(i%); "  ";  ' Вывод элемента вектора
  NEXT i%
  PRINT  ' Вывод конца строки
END SUB

SUB ProcessVector (B())  ' Процедура обработки вектора
  FOR i% = 1 TO UBOUND(B)  ' Цикл просмотра элементов вектора
   
  NEXT i%
END SUB