Найти среднее арифметическое отрицательных элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4 из 5
Похожие ответы