Из последовательности N чисел вычислить среднее арифметическое значение отрицательных - VB
Формулировка задачи:
Вводится последовательность из N чисел. Вычислить среднеарифметическое значение отрицательных среди них чисел. Может кто может написать , спасет человека на экзамене)))
Решение задачи: «Из последовательности N чисел вычислить среднее арифметическое значение отрицательных»
textual
Листинг программы
sub main
n=inputbox("N=")
for i=1to n
s=(inputbox("A" & i & "=")+s*(i-1))/i
next
msgbox s
end sub