Определить средний рост учащихся в классе

@Delaforse · Регистрация: 04.05.2012

Author24 — интернет-сервис помощи студентам

В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе.

@Shepard90 · 18.06.2012, 19:09

Visual Basic

Sub Запуск()
Dim n, i As Integer
Dim sr As Double
Dim rost, summ As Double
n = InputBox("Введите кл-во учащихся")
summ = 0
For i = 1 To n
rost = InputBox("введите рост")
summ = summ + rost
Next i
sr = summ / n
MsgBox sr
End Sub

@Delaforse · 18.06.2012, 19:53 **[ТС]**

СПАСИБО БОЛЬШОЕ

@Delaforse · 18.06.2012, 20:09 **[ТС]**

das
dsq

@Delaforse 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 64
		1
	Определить средний рост учащихся в классе 18.06.2012, 16:41. Показов 2576. Ответов 3 Метки нет (Все метки) В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. 0

@Delaforse 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 64
	18.06.2012, 19:53 [ТС]	3
	СПАСИБО БОЛЬШОЕ 0

@Delaforse 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 64
	18.06.2012, 20:09 [ТС]	4
	das dsq Миниатюры 0