zadach46.BAS

{* Задача46 *}

REM basic

' Дан целочисленный прямоугольный массив 6x10. Опишите на русском языке или на одном из языков
' Напишите программу вычисления суммы минимальных элементов из каждой строки. Напечатать значение
' этой суммы. Предполагается, что в каждой строке минимальный элемент единственный.


n = 6
M = 10
Dim A(1 To n, 1 To M) As Integer
Dim Min As Integer, Sum 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 i = 1 To n
Min = A(i, 1)
For k = 2 To M
If A(i, k) < Min Then Min = A(i, k)
Next k
Sum = Sum + Min
Next i
PRINT Sum
End