Дан массив v1,…,v10. Если среди первых пяти элементов есть отрицательные числа то заменить элементы с шестого по 10 на среднее арифметическое всего ряда- QBasic(Бейсик)

CLS
RANDOMIZE TIMER
DIM v(10)
k = 0
s = 0
FOR i = 1 TO 10
v(i) = INT(50 * RND(1) - 15)
IF i >= 1 AND i <= 5 THEN GOTO 1 ELSE GOTO 2
1 IF v(i) < 0 THEN k = k + 1
2 PRINT v(i);
NEXT i
IF k >= 1 THEN GOTO 3 ELSE GOTO 4
3 FOR i = 1 TO 10
s = s + v(i)
NEXT i
sred = s / i
sred = (INT(sred * 10)) / 10
PRINT
FOR i = 1 TO 10
v(i) = sred
PRINT v(i);
NEXT i
4 END