Вопрос по информатике:
Задание такое: Разработать макрос на VBA. Массив целых чисел [ q [ i, j] , i =1,2; j=1,3]. Нужно, чтобы выводились результаты расчета суммы и количества элементов, удовлетворяющих условию: 10 < q [i, j] <18.
- 11.01.2018 00:52
- Информатика
- remove_red_eye 19756
- thumb_up 38
Ответы и объяснения 1
Sub aaa()
a = Range(Cells(1, 1), Cells(2, 3))
s = 0: k = 0
For Each p In a
If p > 10 And p < 18 Then
s = s + p: k = k + 1
End If
Next p
MsgBox "Элементов " + CStr(k) + ", сумма " + CStr(s)
End Sub
Данные разместить в области A1:C2
- 12.01.2018 16:41
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.