Найти среднеарифметическое значение - VB

Формулировка задачи:

Есть у меня задачка: в одномерном массиве A(N) действительных чисел определить среднеарифметическое значение только положительных элементов массива. Эта зараза находит мне среднеарифметическое значение всех элементов, а пункт про "положительных" игнорирует. Что мне делать?

Код к задаче: «Найти среднеарифметическое значение - VB»

textual
for i=1 to n
if a(i)>0 then s=s+a(i):n=n+1
next
sred=s/n

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ