В массиве, содержащем не более k элементов, определить номер элемента, корень из которого максимален - VB

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

задача на одномерные массивы В массиве, содержащем не более k элементов, определить номер элемента, корень из которого максимален. Корень извлекать только из положительных чисел. Найти среднее арифметическое для элементов, из которых извлекался корень.

Код к задаче: «В массиве, содержащем не более k элементов, определить номер элемента, корень из которого максимален - VB»

textual
Sub Task(A() As double, k as integer)
      Avg#=0
      n#=0
      max#=-1
      for i%=1 to k
          if A(i%) > 0 then
             n#=n#+1
             Avg#=Avg#+A(i%)
             tmp#=Sqr(A(i%))
             if tmp# > Max# then Max#=tmp#
          End if
       Next i%
       If n# > 0 then
          Debug.print "Макс. значение корня=";Max#
          Debug.Print "Среднее значение     =";Avg#/n# 
       else
          Debug.print "Все числа неположительны!"
       end if
End Sub

14   голосов, оценка 4.214 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы