Читал правила форума, пишу честно и прямо, решите пожалуйста за меня задачу, если бы знал, как делать сделал бы самостоятельно. Определить сумму, произведение и количество элементов вектора W размерности n, значения которых попадают в интервал [S; T].
Читал правила форума, пишу честно и прямо, решите пожалуйста за меня задачу, если бы знал, как делать сделал бы самостоятельно. Определить сумму, произведение и количество элементов вектора W размерности n, значения которых попадают в интервал [S; T].dsfsv
И Вам здравствуйте. Так как примера нет и непонятно, откуда брать данные и куда выводить результат, ответ примерный [vba]
Код
Sub WWW() pr = 1 For i = 1 To n If W(i) >= S And W(i) <= T Then k = k + 1 'количество sm = sm + W(i) 'сумма pr = pr * W(i) 'произведение End If Next i End Sub
[/vba]
И Вам здравствуйте. Так как примера нет и непонятно, откуда брать данные и куда выводить результат, ответ примерный [vba]
Код
Sub WWW() pr = 1 For i = 1 To n If W(i) >= S And W(i) <= T Then k = k + 1 'количество sm = sm + W(i) 'сумма pr = pr * W(i) 'произведение End If Next i End Sub
Sub WWW() W = Range("C2:I2").Value n = Range("M3") S = Range("K3") T = Range("L3") pr = 1 For i = 1 To n If W(1, i) >= S And W(1, i) <= T Then k = k + 1 'количество sm = sm + W(1, i) 'сумма pr = pr * W(1, i) 'произведение End If Next i Range("C6") = k Range("C7") = sm Range("C8") = pr End Sub
[/vba]
[vba]
Код
Sub WWW() W = Range("C2:I2").Value n = Range("M3") S = Range("K3") T = Range("L3") pr = 1 For i = 1 To n If W(1, i) >= S And W(1, i) <= T Then k = k + 1 'количество sm = sm + W(1, i) 'сумма pr = pr * W(1, i) 'произведение End If Next i Range("C6") = k Range("C7") = sm Range("C8") = pr End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
