Можно представить что данный диапазон это прямоугольник, в котором верняя грань равна 3 ячейкам - столбцы A B C, а боковая грань равна 4 ячейкам, т.к. состоит из строк 2 3 4 5
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next
Dim intA, intB As Integer intA = InputBox("Введите начало интервала") intB = InputBox("Введите конец интервала") Dim R, Q, S As Integer R = 0 For i = 1 To UBound(A) If A(i) < A(R) Then R = i If A(i) Mod 2 <> 0 Then Q = Q + A(i) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 If A(i) > intA And A(i) < intB Then S = S + 1 Next
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next
Dim intA, intB As Integer intA = InputBox("Введите начало интервала") intB = InputBox("Введите конец интервала") Dim R, Q, S As Integer R = 0 For i = 1 To UBound(A) If A(i) < A(R) Then R = i If A(i) Mod 2 <> 0 Then Q = Q + A(i) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 If A(i) > intA And A(i) < intB Then S = S + 1 Next
12
Объяснение:
Можно представить что данный диапазон это прямоугольник, в котором верняя грань равна 3 ячейкам - столбцы A B C, а боковая грань равна 4 ячейкам, т.к. состоит из строк 2 3 4 5
Общее количество ячеек:4*3=12