Здравствуйте. Помогите написать программу на языке Бейсик. Дан массив А из 20 элементов. Заменить отрицательные элементы массива на среднее арифметическое элементов массива. Результат вывести на печать. Спасибо.

Программа на qBASIC 7.01DIM a(20)s = 0FOR i = 1 TO 20   INPUT a(i)   s = s + a(i)NEXT is = s / 20FOR i = 1 TO 20   IF a(i) < 0 THEN a(i) = s   PRINT a(i); " ";NEXT iPRINTENDТестовое решение:? 5? 8? -3? 7? 11? -12? 6? 0? -13? 9? 11? 0? 7? -4? 1? 9? 4? 5? -11? 3 5   8   2.15   7   11   2.15   6   0   2.15   9   11   0   7   2.15   1   9 4   5   2.15   3Чтобы продолжить, нажмите любую клавишу