Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = InputBox("введите кол-во строк")
m = InputBox("введите кол-во столбцов")
ReDim a(1 To n, 1 To m) As Long
Dim i As Long
Dim j As Long
Dim sum As Long
Dim min As Long
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("элемент" & j & "строки" & i & "столбца")
Next j
Next i
min = 32000
For i = 1 To n
sum = 0
For j = 1 To m
sum = sum + a(i, j)
Next j
If sum < min Then
min = sum
st = i
End If

min = &H80000000 'наименьшее число типа Long

If sum > min Then

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы