Определить в массиве А(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

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


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

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

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