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

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

Дан массив Х(20) с целыми числами диапазон (-25 +25) Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива.

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

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

CLS
OPTION BASE 1
CONST n = 20
DIM x(n) AS INTEGER
 
FOR i = 1 TO n
   x(i) = 50 * RND - 25
   PRINT x(i);
NEXT i: PRINT : PRINT
 
FOR i = 1 TO n
   IF x(i) > 0 THEN n1 = n1 + 1
   IF x(i) < 0 THEN n2 = n2 + 1
NEXT i
 
p = 1
IF n1 THEN
   FOR i = 1 TO n
      IF x(i) > 0 THEN p = p * x(i)
   NEXT i
   PRINT "SRED. GEOM. ="; p ^ (1 / n1)
ELSE
   PRINT "POLOSH. CHISEL NET"
END IF
PRINT
 
IF n2 THEN
   FOR i = 1 TO n
      IF x(i) < 0 THEN s = s + x(i)
   NEXT i
   PRINT "SRED. ARIFM. ="; s / n2
ELSE
   PRINT "OTRIZ. CHISEL NET"
END IF
END

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

Объявлен массив x(n) размером n=20 для хранения чисел.
В цикле заполняются элементы массива x(i) случайными числами от -25 до 25.
В каждой итерации цикла проверяется знак числа x(i).
Если число положительное, то увеличивается счетчик положительных чисел n1.
Если число отрицательное, то увеличивается счетчик отрицательных чисел n2.
После завершения цикла проверяется значение счетчиков n1 и n2.
Если есть положительные числа, то вычисляется среднее геометрическое положительных чисел и выводится на экран.
Если нет положительных чисел, то выводится сообщение POLOSH. CHISEL NET.
Если есть отрицательные числа, то вычисляется среднее арифметическое отрицательных чисел и выводится на экран.
Если нет отрицательных чисел, то выводится сообщение OTRIZ. CHISEL NET.