Найти среднее арифметическое отрицательных элементов массива - VB
Формулировка задачи:
народ подскажите как Вычислить среднее арифметическое отрицательных элементов массива, превышающих заданную величину, подсчитать количество таких элементов?
Решение задачи: «Найти среднее арифметическое отрицательных элементов массива»
textual
Листинг программы
Dim mas() As Integer, n As Integer, c As Byte, sum As Integer Private Sub Command1_Click() a = Val(InputBox("введите число")) n = Val(InputBox("введите размер массива")) Print "размер массива = "; n Print "введеное число = "; a ReDim mas(1 To n) Randomize For k = 1 To n mas(k) = Rnd * 100 - 50 Next k Print: Print 'For k=1 To n k = 1 'начальный min элемент Do Print mas(k); k = k + 1 'изменение управляющей переменной цикла Loop Until k > n Print: Print 'Next k 'поиск мin модуля элемента kmin = 1 'начальный min элемент For k = 2 To n If mas(k) < mas(kmin) Then kmin = k End If Next Print "min элемент = "; mas(kmin) Print "номер min элемента равен = "; kmin 'поиск мin положительного элемента p = 0 'нет положительного элемента For k = 1 To n If mas(k) > 0 Then kmin = k 'начальный номер min элемента p = 1 End If Next k If p = 0 Then Print "нет положительного элемента" Else For k = 1 To n If mas(k) > 0 Then If mas(k) < mas(kmin) Then kmin = k End If End If Next Print "min положительный элемент = "; mas(kmin) Print "номер min положительного элемента = "; kmin c = 0 If mas(k) > a And mas(k) < 0 Then c = c + 1 sum = sum + mas(k) 'Вот и всё посчитанно If c = 0 Then Print "Net takix elementov!": Exit Sub sum = sum / c Print "Srednee = "; sum Print "Kol-vo = "; c End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д