Найти и вывести сумму индексов элементов с максимальным и минимальным значением элементов массива R(K)

Принять, что в массиве по одному MAX и MIN элемента.(значения переменных считать произвольными)

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

автор: кот Бегемот