{* Задача102 *}

REM basic

' Ввести двумерный массив M x N. Определить сумму элементов каждой строки.


10 INPUT "Количество строк ="; M%: If M% < 1 Then 10
20 INPUT "Количество столбцов ="; N%: If N% < 1 Then 20
30 Dim AR(M%, N%)
40 For I=1 To M%
50 For J=1 To N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = {;
}70 INPUT AR(I, J)
80 Next J, I
90 Dim SUM(M%)  { Результирующий массив
}100 For I=1 To M%
110 SUM(I) = 0
120 For J=1 To N%
130 SUM(I) = SUM(I) + AR(I, J)
140 Next J, I
150 PRINT "Сумма элементов строк:"
160 For I=1 To M%
170 PRINT SUM(I)
180 Next I
190 End