Написать программу на языке бейсик. дан массив а из 20 элементов. заменить отрицательные элементы массива на среднее арифметическое элементов массива. результат вывести на печать.

Программа на qBASIC 7.01
DIM a(20)
s = 0
FOR i = 1 TO 20
   INPUT a(i)
   s = s + a(i)
NEXT i
s = s / 20
FOR i = 1 TO 20
   IF a(i) < 0 THEN a(i) = s
   PRINT a(i); " ";
NEXT i
PRINT
END

Тестовое решение:
? 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

Чтобы продолжить, нажмите любую клавишу