Найти сумму тех элементов, которые кратны данному значению K. - VB

Узнай цену своей работы

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

Помогите решить на языке Visual Basic!!! Плиз!!!! Очень нужно!!!В массив A(n) занесены натуральные числа. Найти сумму тех элементов, которые кратны данному значению K.

Решение задачи: «Найти сумму тех элементов, которые кратны данному значению K.»

textual
Листинг программы
Private Sub CommandButton1_Click()
Dim A() As Integer
 
Dim n, k, i As Integer
Dim sum As Long
 
n = Val(InputBox("Введите размерность массива:"))  'а вдруг не число засунут
k = Val(InputBox("Введите число K:")) 'а вдруг не число засунут
ReDim A(n) ' переопределяем массив
sum=0
For i = 1 To n
   A(i) = Val(InputBox("Введите елемент А(" & i & ")")) ' Заполняем массив
   If A(i) Mod k = 0 Then 'Если остаток от деления равен 0
      sum = sum + A(i)
   End If
Next i
MsgBox "Сумма элементов, кратных числу " & k & " =" & sum
 
End Sub

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


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

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

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