Задача на замену положительных элементов массива на минимальный элемент данного массива - QBasic

Формулировка задачи:

Доброго времени суток! помогите пожалуйста решить задачу. Дан массив А из 20 элементов. Заменить положительные элементы массива на минимальный элемент массива. Результат вывести на печать. вот что у меня получилось только не думаю что очень правильно

10 DIM A(20)
20 FOR I=1 TO 20
30 INPUT A(I)
40 NEXT I
50
60
70
80
90 PRINT
100 END

С серединкой я как-то застопорилась((( я так понимаю там надо написать замену элементов на единицу? но как это сделать? Заранее спасибо за помощь)

Решение задачи: «Задача на замену положительных элементов массива на минимальный элемент данного массива»

Листинг программы

DECLARE FUNCTION Min! (a() AS INTEGER, n!)
CLS
RANDOMIZE TIMER
n = 20
DIM a(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   a(i) = 20 * RND - 10
   PRINT a(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO n
   IF a(i) > 0 THEN a(i) = Min(a(), n)
NEXT i
 
FOR i = 1 TO n
   PRINT a(i);
NEXT i
END
 
FUNCTION Min (a() AS INTEGER, n)
   IF n = 1 THEN
      Min = a(1)
   ELSE
      mi = Min(a(), n - 1)
      IF mi < a(n) THEN Min = mi ELSE Min = a(n)
   END IF
END FUNCTION

Объяснение кода листинга программы

Объявляется функция Min с параметрами a() типа INTEGER и n.
Задается значение переменной n равное 20.
Создается массив a размером 1..n.
В цикле заполняются значения элементов массива a случайными числами от -10 до 10.
Выводятся значения элементов массива a.
В цикле происходит замена положительных элементов массива a на минимальный элемент в этом массиве.
Выводятся значения элементов массива a после замены.
Определяется функция Min с параметрами a() типа INTEGER и n.
Если n равно 1, то функция возвращает значение первого элемента массива a.
Иначе, находится минимальное значение среди первых n-1 элементов массива a и сохраняется в переменной mi.
Если mi меньше значения n-го элемента массива a, то функция возвращает mi, иначе возвращается значение n-го элемента массива a.