Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива - VB
Формулировка задачи:
Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива
* A (N), N ≤ 50.
Решение задачи: «Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива»
textual
Листинг программы
Function AvgNegPos(A() as double, _ Optional i as integer=0, Optional np as integer=0, Optional sp as double=0, Optional nn as integer=0, Optional sn as double=0) As Double () Dim Res() as Double if (i > Ubound(A,1)) Then Redim Res(1 to 4) As Double Res(1)=sp/np Res(2)=sn/nn Res(3)=np Res(4)=nn AvgNegPos=Res else If (A(i) > 0) then AvgNegPos=AvgNegPos(A,i+1,np+1,sp+A(i),nn,sn) If (A(i) < 0) then AvgNegPos=AvgNegPos(A,i+1,np,sp,nn+1,sn+A(i)) End if End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д