VB - VB (172021)

Формулировка задачи:

Описать, заполнить, вывести на форму в строчку массив W в котором 19 элементов. Значения элементов массива — целые случайные числа от -17 до 23. Найти сумму нечетных элементов, среднее арифметическое отрицательных элементов массива, минимальный элемент и его индекс.

Решение задачи: «VB»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Label1.Caption = ""
Dim W(1 To 19) As Integer, i As Byte, sum As Single, count As Byte, sumCount As Variant, min As Integer, minI As Byte
min = 24
For i = 1 To 19
W(i) = CInt(40 * Rnd - 17)
If W(i) Mod 2 = 0 Then sum = sum + W(i)
If W(i) < 0 Then count = count + 1: sumCount = sumCount + W(i)
If W(i) < min Then min = W(i): minI = i
Label1.Caption = Label1.Caption & W(i) & " "
Next i
If count = 0 Then sumCount = "Нет отрицательных" Else sumCount = sumCount / count
MsgBox "Sum= " & sum & Chr(13) & "Srednee= " & sumCount & Chr(13) & "min(" & minI & ")= " & min
End Sub
                        