Пользователь вводит расход энергии N предприятий. вычислить средний расход энергии на одно предприятие номер предприятия с наименьшим расходом — QBasic(Бейсик)

CLS
INPUT "kolvo predpriyatiy="; n
DIM r(n)
FOR i = 1 TO n
    PRINT "Element "; i;
    INPUT "Rashod energii predpr ="; r(i)
NEXT
sr = 0: min = 1
FOR i = 1 TO n
    sr = sr + r(i)
    IF r(i) < r(min) THEN min = i
NEXT
sr = sr / n
PRINT "Sredniy rashod="; sr
PRINT "Nomer predpr s minim rashodom="; min