Составить программу вычисления среднего арифметического отрицательных элементов массива - QBasic

Формулировка задачи:

Помогите мне пожалуйста составить программу вычисления среднего арифметического отрицательных элементов массива B(n) и найденное среднее арифметическое записать в массив B как n+1

Решение задачи: «Составить программу вычисления среднего арифметического отрицательных элементов массива»

Листинг программы

INPUT "vvedite razmer massiva ",n
DIM b(n+1)
FOR i=1 TO n
INPUT "vvedite element ",b(i)
NEXT
PRINT "ishodnyj massiv"
FOR i=1 TO n
PRINT b(i);
NEXT
PRINT
FOR i=1 TO n
IF b(i)<0 THEN k=k+1:s=s+b(i)
NEXT
sred=s/k
PRINT"sreddnee znachenie polojitelnyh=";sred
b(n+1)=sred
PRINT "novyj massiv"
FOR i=1 TO n+1
PRINT b(i);
NEXT
END

Объяснение кода листинга программы

В этом коде:

Пользователю предлагается ввести размер массива (размер укажет количество элементов, которые будут добавлены в массив).
Создается массив, который может содержать n+1 элементов (n - количество элементов, введенных пользователем, + 1).
Пользователю предлагается ввести каждый элемент массива.
Выводится исходный массив.
Создается переменная k, которая инициализируется нулем, и переменная s, которая инициализируется нулем.
Происходит итерация по каждому элементу массива. Если элемент отрицательный, то к переменной k прибавляется единица, а переменная s принимает значение элемента.
Создается переменная sred, которая инициализируется как отношение суммы отрицательных элементов к количеству отрицательных элементов.
Выводится среднее значение положительных элементов.
Последний элемент массива заменяется на среднее значение.
Выводится новый массив.