{* Задача44 *}

REM basic

' Дан прямоугольный массив целых положительных чисел 10 х 20.
' Составьте программу поиска строки
' с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов.
' Предполагается, что такая строка единственная.


N = 10
M = 20
Dim a(1 To N, 1 To M) As Integer
Dim min As Integer, Sum As Integer, iMin As Integer, i As Integer, k As Integer
{ввод матрицы N на N
}For i = 1 To N
For k = 1 To M
INPUT a(i, k)
Next k
Next i
Sum = 0
For k = 1 To M
Sum = Sum + a(1, k)
Next k
min = Sum
iMin = 1
For i = 2 To N
Sum = 0
For k = 1 To M
Sum = Sum + a(i, k)
Next k
If Sum < min Then
min = Sum
iMin = i
End If
Next i
PRINT "Строка "; iMin; " сумма "; min
End