Array_Basic

arr.bas

DIM as Integer n, m, S, Num, min

Input n
Input m

DIM A(n, m)

FOR I AS Integer = 1 TO n
	FOR J = 1 as Integer TO m
		Input A(I, J)
	NEXT J
NEXT I

min = 32000

FOR I AS Integer = 1 TO n
	FOR J AS Integer = 1 TO m
		S = S + A(J, I)
	NEXT J
	
	IF S < min THEN
		min = S
		Num = I
	END IF
NEXT I