Вычисление суммы всех чисел последовательности - QBasic

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

Дана последовательность чисел, вводимых с клавиатуры и оканчивающаяся нулем. Составьте программу вычисления: a. суммы всех чисел последовательности; b. среднего арифметического всех чисел последовательности: c. суммы только отрицательных и суммы только положительных чисел последовательности.

Решение задачи: «Вычисление суммы всех чисел последовательности»

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

CLS
INPUT n
DIM x(n)
FOR i = 1 TO n
1 PRINT "X"; i
INPUT x(i)
IF RIGHT$(STR$(x(i)), 1) <> "0" THEN 1
a = a + x(i)
IF x(i) >= 0 THEN pol = pol + x(i) ELSE otr = otr + x(i)
NEXT i
PRINT "a. summa="; a
PRINT "b. sredarif="; a / n
PRINT "c.summ_otric="; otr
PRINT "c.summ_polozh="; pol

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

CLS INPUT n DIM x(n) FOR i = 1 TO n 1 PRINT X; i INPUT x(i) IF RIGHT$(STR$(x(i)), 1) <> 0 THEN 1 a = a + x(i) IF x(i) >= 0 THEN pol = pol + x(i) ELSE otr = otr + x(i) NEXT i PRINT a. summa=; a PRINT b. sredarif=; a / n PRINT c.summ_otric=; otr PRINT c.summ_polozh=; pol

Сначала объявляются переменные a, otr, pol и n. Значение переменной n будет использоваться в цикле, поэтому ей присваивается значение с помощью функции INPUT.
Затем создается массив x(n), который будет использоваться для хранения введенных пользователем чисел.
Далее начинается цикл, который будет выполняться n раз. На каждой итерации пользователю предлагается ввести значение для элемента массива x(i).
После ввода значения для каждого элемента, проверяется его последний символ. Если он не равен 0, то это число добавляется к сумме a.
Если введенное число больше или равно нулю, то оно добавляется к переменной pol, иначе оно добавляется к переменной otr.
После окончания цикла, выводятся значения переменных a, otr, pol и n.
Среднее значение вычисляется путем деления суммы a на n и также выводится на экран.