Найти сумму всех элементов массива ,кроме элементов от K до L включительно - VB
Формулировка задачи:
Немогу никак понять массивы...Помогите чем можете(
Дан массив размера N и целые числа K и L (1 < K <= L <=N). Найти сумму всех элементов массива ,кроме элементов от K до L включительно.
Решение задачи: «Найти сумму всех элементов массива ,кроме элементов от K до L включительно»
textual
Листинг программы
Option Explicit
Private Sub Комманда1_Click()
Dim I
Dim S As Double
Dim N(20) As Integer
Dim K As Integer
Dim L As Integer
Dim Z As Integer
K = Val(Text1.Text)
L = Val(Text2.Text)
Randomize
For I = 1 To 20
N(I) = InputBox("число" & Str(I) & "=", "Запрос числа", Int(20 * Rnd + 1))
If N(I) < K Or N(I) > L Then S = S + N(I): Z = Z + 1
Next I
Print "Найдено " & Z & " чисел. Сумма равняется " & S
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д