{* Задача45 *}

REM basic

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


N = 10
Dim A(1 To N, 1 To N) As Integer
Dim Max As Integer, Sum As Integer, iMax As Integer, i As Integer, k As Integer
{ввод матрицы N на N
}For i = 1 To N
For k = 1 To N
INPUT A(i, k)
Next k
Next i
iMax = 1
Max = A(1, 1)
For i = 1 To N
For k = 1 To N
If A(i, k) > Max Then
Max = A(i, k)
iMax = i
End If
Next k
Next i
Sum = 0
For k = 1 To N
Sum = Sum + A(iMax, k)
Next k
PRINT Sum
End