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

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

составить для вычислителя алгоритм пользуясь которым он запросит последовательно N чисел и сообщит среднее арифметическое(начертить блок схему и возвести в программу п.ж)

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

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

CLS
 
INPUT "N = "; N
 
FOR i = 1 TO N
   PRINT "i ="; i;
   INPUT "A = "; a
   S = S + a
NEXT i
 
PRINT "SREDN. ARIFM. ="; S / N
END

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

CLS — очистка экрана
INPUTN = ; N — ввод числа N, обозначающего количество чисел в последовательности
FOR i = 1 TO N — начало цикла, который выполняется N раз
PRINTi =; i — вывод значения переменной i
INPUTA = ; a — ввод числа A, которое добавляется к сумме S
S = S + a — увеличение суммы S на значение переменной a
NEXT i — переход к следующей итерации цикла
PRINTSREDN. ARIFM. =; S / N — вывод среднего арифметического S/N
END — конец программы