Дан массив L1…L20. Заменить элементы, стоящие после Lmin на серднее арифметическое всего ряда- QBasic(Бейсик)

n=20
DIM l(n)
FOR i=1 TO n
PRINT "Vvedite element massiva #";i;
INPUT l(i)
NEXT i
PRINT
PRINT "Ishodniy massiv"
FOR i=1 TO n
PRINT l(i);
NEXT i
PRINT:PRINT
Lmin=l(1): imin=1
s=l(1)
FOR i=2 TO n
IF l(i)<Lmin THEN Lmin=l(i): imin=i
s=s+l(i)
NEXT i
s=s/n
FOR i=imin+1 TO n
l(i)=s
NEXT i
PRINT "Massiv posle preobrazovaniy"
FOR i=1 TO n
PRINT l(i);
NEXT i
END