Найти сумму тех элементов, которые кратны данному значению 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д