Найти среднее арифметическое элементов массива - QBasic (27792)

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

Массив R(20) заполнить целыми случайными числами в диапазоне от -30 до 30. Найти среднее арифметическое С всех элементов массива. Если С<0, определить количество N отрицательных элементов, таких, что R(I)>C. Если С>0, определить количество Р положительных элементов, таких что R(I)<C. Вывести R, С, N или Р.

Решение задачи: «Найти среднее арифметическое элементов массива»

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

CLS
DIM R(20)
sum = 0
C = 0
P = 0
 
FOR i = 1 TO 20
 RANDOMIZE TIMER
 R(i) = INT(RND * 60 - 30)
 sum = sum + R(i)
NEXT i
 
C = sum / 20
P = 0
N = 0
PRINT "massiv:"
FOR i = 1 TO 20
 IF C < 0 AND R(i) > C THEN
  N = N + 1
 END IF
 IF C >= 0 AND R(i) < C THEN
  P = P + 1
 END IF
   PRINT R(i);
NEXT i
PRINT
PRINT "ariafv", C
IF C < 0 THEN
 PRINT "otrN=", N
ELSE
 PRINT "pol P=", P
END IF

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

Установка начального значения переменных:
- C = 0, P = 0, N = 0
Создание массива R(20) с помощью DIM R(20)
Инициализация суммы элементов массива с помощью sum = 0
Цикл FOR i = 1 TO 20, который выполняет следующие действия:
- RANDOMIZE TIMER, используется для получения случайного числа
- R(i) = INT(RND * 60 - 30), присваивание случайного числа элементу массива
- sum = sum + R(i), прибавление элемента массива к сумме
Вычисление среднего арифметического с помощью C = sum / 20
Установка начального значения переменных:
- C = 0, P = 0, N = 0
Цикл FOR i = 1 TO 20, который выполняет следующие действия:
- Если C < 0 и R(i) > C, то N = N + 1, т.е. увеличивается счетчик положительных отклонений
- Если C >= 0 и R(i) < C, то P = P + 1, т.е. увеличивается счетчик отрицательных отклонений
- Вывод значения элемента массива R(i)
Вывод среднего арифметического с помощью PRINT ariafv, C
Если C < 0, то выводится количество положительных отклонений с помощью PRINT otrN=, N
Если C >= 0, то выводится количество отрицательных отклонений с помощью PRINT pol P=, P