1. Вычислить среднее арифметическое отрицательных элементов массива, превышающих заданную величину, подсчитать количество таких элементов.
2. В массиве удалить элемент перед последним отрицательным элементом превышающим заданную величину.
вот код:
Dim mas() As Integer, n 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
End If
End Sub
Private Sub выход_Click()
End
End Sub
народ,как подсчитать, среднее арифметическое отрицательных элементов массива?
