| Вопрос: не могу дописать,помогите.. | Добавлено: 18.05.11 12:41 |
Автор вопроса:  малинка
|
|
Sub pr()
Dim B() As Single Dim M As Single Dim i, k, N As Integer N = InputBox("введите количество наименований продуктов на складе") Cells(1, 1) = "количества наименований продуктов" Cells(1, 5) = N ReDim B(N) As Single Cells(3, 1) = "номер продукта" Cells(5, 1) = "количество продуктов" For i = 1 To N B(i) = InputBox ("введите количество" & i & "-го продукта") Cells(3, i + 3) = i Cells(5, i + 3) = B(i) Next i M = B(i) k = 1 For i = 2 To N If B(i) < M Then M = B(i) k = i End If Next i Cells(6, 1) = "номер продукта, количество которого минимально =" Cells(6, 6) = k k = i End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  малинка Вопросов: 2 Ответов: 1 |
Профиль | | #1 | Добавлено: 18.05.11 12:44 |
| Имеется информация для N наименований продуктов на складе. Определить номер продукта. | ||
Страница: 1 |