Вычислить среднее арифметическое отрицательных элементов массива - VB

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

1. Вычислить среднее арифметическое отрицательных элементов массива. 2. Поменять местами минимальный по модулю положительный эле-мент с первым элементом массива. 3. В массиве первые 6 элементов расположить в порядке возрастания их модулей. 4. В массиве первый и последний отрицательные элементы переставить в конец массива. завтра экз. по инфе, допуск-решение этих задачей, до меня вообще не доходит как делать.. кто нибудь помогиете,выручите пожалуйста..

Решение задачи: «Вычислить среднее арифметическое отрицательных элементов массива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub SwapMin(A() as double)
   n1%=Lbound(A,1)
   n2%=Ubound(A,1)
   q%=0
   for i%=n1% to n2%
       If A(i%) > 0 then
          k%=i%
          amin#=A(i%) 
          q%=-1
          Exit for
       End if
   Next i%        
   If q%=0 then
      MsgBox "В массиве нет положительных элементов!"
      Exit sub
   end if
   jmin%=k%  
   for i%=k%+1 to n2%
       if A(i%) > 0 then
          if A(i%)<amin# then
             amin#=A(i%)
             jmin%=i%
          end if    
       end if
   Next i%
   Tmp#=A(n1%)
   A(n1%)=amin#
   A(jmin%)=Tmp#
End Sub

Оцени полезность:

11 голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы