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

Можно еще вопрос: текст после тестового решения тоже является ответом на поставленную задачу?

Под Windows qBASIC работает на виртуальной машине DOS и вывод идет в окно консоли. Чтобы после завершения программы оно не схлопывалось, qBASIC организует цикл ожидания с выдачей системного сообщения DOS при помощи стандартной команды PAUSE, которую он генерирует неявно. Текст "Чтобы продолжить..." - это как раз системное сообщение. Поскольку это результат работы не программы, а исполняющей системы, его приводить в ответе не надо.

Программа на 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Чтобы продолжить, нажмите любую клавишу