Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Dim i As Integer
Randomize
n = Val(Text1.Text) 'Количество элементов массива
ReDim a(n) 'Задание размера динамического массива А
Text2.Text = "" 'Очистка окна Text2
'Заполнение массива случайными значениями целых чисел
For i = 0 To n - 1
'Присвоение элементу массива случайного числа из отрезка [-10,10]
a(i) = Int(21 * Rnd - 10)
'Вывод элементов массива в текстовое поле Text2
Text2.Text = Text2.Text + " " + Str(a(i))
Next i
End Sub
'Процедура обработки массива
Private Sub Command2_Click()
Dim i As Integer, Sum As Integer, Min As Integer
Dim Sum1 As Integer, Kol As Integer, Count_P As Integer
Min = a(0) 'Установка начального значения минимума
'Очистка текстовых окон
Text3.Text = "": Text4.Text = "": Text5.Text = ""
Text6.Text = ""
Sum=0: Sum1=0: Kol=0: Count_P=0 'Инициализация переменных
For i = 0 To n - 1
Sum = Sum + a(i) 'Суммирование элементов массива
'Подсчет количества положительных элементов
If a(i) > 0 Then Count_P = Count_P + 1
If a(i) < Min Then Min = a(i) 'Поиск минимального элемента
If (a(i) Mod 5 = 0) And (a(i) <> 0) Then
Sum1 = Sum1 + a(i) 'Суммирование элементов кратных пяти
Kol = Kol + 1 'Подсчет количества элементов кратных пяти
End If
Next i
Text3.Text = Str(Sum)
Text4.Text = Str(Count_P)
Text5.Text = Str(Min)
If Kol <> 0 Then Text6.Text = Str(Sum1 / Kol)
End Sub
Дата публикования: 2014-12-28; Прочитано: 203 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!