Определить в массиве А(N) и вывести на печать количество элементов, имеющих значение не меньше 10 - VB
Формулировка задачи:
Определить в массиве А(N) и вывести на печать количество элементов,
имеющих значение не меньше 10, и среднее арифметическое таких элементов.
Вывести исходный массив А(N). VBA
Решение задачи: «Определить в массиве А(N) и вывести на печать количество элементов, имеющих значение не меньше 10»
textual
Листинг программы
Private Sub CommandButton1_Click() Dim i As Integer, A(1 To 10) As Single For i = 1 To 10 A(i) = Val(InputBox("Введите элемент")) Label4.Caption = Label4.Caption & " " & A(i) if A (i) >= 10then Sum = Sum + A(i) n = n + 1 endif Next i Label5.Caption = Label5.Caption & " " & n Label10.Caption = Label10.Caption & " " & Sum / n 'Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д