Вычислить среднее арифметическое отрицательных элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д