Из последовательности N чисел вычислить среднее арифметическое значение отрицательных

@мишаня я · Регистрация: 04.06.2015

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

Вводится последовательность из N чисел. Вычислить среднеарифметическое значение отрицательных среди них чисел. Может кто может написать , спасет человека на экзамене)))

@~~Апострофф~~ · 04.06.2015, 12:39

Visual Basic

sub main
n=inputbox("N=")
for i=1to n
  s=(inputbox("A" & i & "=")+s*(i-1))/i
next
msgbox s
end sub

Добавлено через 15 минут
Извиняюсь, это было просто среднее арифметическое, вот правильное решение

Visual Basic

sub main
n=inputbox("N=")
for i=1to n
  ai=inputbox("A" & i & "=")
  If ai<0Then j=j+1:s=(ai+s*(j-1))/j
next
msgbox s
end sub

@мишаня я 0 / 0 / 0 Регистрация: 04.06.2015 Сообщений: 8
		1
	Из последовательности N чисел вычислить среднее арифметическое значение отрицательных 04.06.2015, 09:18. Показов 1789. Ответов 1 Метки нет (Все метки) Вводится последовательность из N чисел. Вычислить среднеарифметическое значение отрицательных среди них чисел. Может кто может написать , спасет человека на экзамене))) 0

	04.06.2015, 12:39

Опции темы

Из последовательности N чисел вычислить среднее арифметическое значение отрицательных

Решение