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

@derusov · Регистрация: 14.01.2015

Напишите программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Для окаончания ввода использовать ноль.

Задали задачку, нужно срочно решить на завтра, а на теме с циклами я болел и чего то ваще не пойму как сделать.
Помогите мне, буду очень вам признателен.

@Genn55 · 14.01.2015, 23:32

Visual Basic

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

@derusov 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 1
		1
	Найти среднее арифметическое последовательности положительных чисел 14.01.2015, 17:50. Показов 1671. Ответов 1 Метки нет (Все метки) Напишите программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Для окаончания ввода использовать ноль. Задали задачку, нужно срочно решить на завтра, а на теме с циклами я болел и чего то ваще не пойму как сделать. Помогите мне, буду очень вам признателен. 0

Опции темы

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

Решение