Найти среднее арифметическое последовательности положительных чисел - VB
Формулировка задачи:
Напишите программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Для окаончания ввода использовать ноль.
Задали задачку, нужно срочно решить на завтра, а на теме с циклами я болел и чего то ваще не пойму как сделать.
Помогите мне, буду очень вам признателен.
Решение задачи: «Найти среднее арифметическое последовательности положительных чисел»
textual
Листинг программы
Option Explicit Dim a As Integer, sum As Integer Dim counter As Integer Private Sub Form_Click() Dim sr As Single counter = 0 sum = 0 Do a = Val(InputBox("Введите число")) Print a; If a <> 0 Then counter = counter + 1 sum = sum + a Loop Until a = 0 sr = sum / counter Print Print sr; End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д