Найти и вывести сумму индексов элементов с максимальным и минимальным значением элементов массива R(K). Принять, что в массиве по одному MAX и MIN элемента.(значения переменных считать произвольными)- QBasic(Бейсик)

INPUT k
DIM r(k)
FOR i = 1 TO k
    INPUT "vvedite element ", r(i)
NEXT
max = r(1)
min = r(1)
nmax = 1
nmin = 1
FOR i = 1 TO k
    IF r(i) > max THEN max = r(i): nmax = i
    IF r(i) < min THEN min = r(i): nmin = i
NEXT
PRINT nmax + nmin