Определить в массиве А(N) и вывести на печать количество элементов, имеющих значение не меньше 10 - VB

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

Определить в массиве А(N) и вывести на печать количество элементов, имеющих значение не меньше 10, и среднее арифметическое таких элементов. Вывести исходный массив А(N). VBA

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim i As Integer, A(1 To 10) As Single
A(i) = Val(InputBox("Введите элемент"))
Label4.Caption = Label4.Caption & " " & A(i)
For i = 1 To 10
A (i) >= 10
Sum = Sum + A(i)
n = n + 1
Next i
Label5.Caption = Label5.Caption & " " & n
Label10.Caption = Label5.Caption & " " & Sum / n
Next i
End Sub

Решение задачи: «Определить в массиве А(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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы