REM -
DIM M, N, I, J
INPUT M, N ; M, N
DIM K(1 TO N)
DIM A(1 TO M, 1 TO N), C(1 TO M, 1 TO N)
DATA 3,6,0,2,9,5,0,4,0,7,3,2,3,8,0,5
FOR I = 1 TO M i
FOR J = 1 TO N j
READ A(I,J)
NEXT J j
NEXT I i
FOR J = 1 TO N STEP 2 j
K(J) = 0
FOR I = 1 TO M i
IF A(I,J) <> 0 THEN
K(I) = K(I) + 1
END IF
NEXT I i
PRINT K;J;=;K(J)
NEXT J j
FOR I = 1 TO M i
FOR J = 1 TO N j
IF A(I,J) = 0 THEN
C(I,J) = A(I,N)
ELSE C(I,J) = A(I,J)
END IF
PRINT C(; I;,;J;) =;C(I,J)
NEXT J j
NEXT I i
END
:
M, N? 4, 4 _
K1 = 1 K2 = 2 K3 = 1 K2 = 2 :
C(1,1) = 3
C(1,2) = 6 = 1; 2; 1; 2
C(1,3) = 2
C(1,4) = 2
C(2,1) = 9
C(2,2) = 5
C(2,3) = 4
C(2,4) = 4
C(3,1) = 2
C(3,2) = 7
C(3,3) = 3
C(3,4) = 2
C(4,1) = 3
C(4,2) = 8
C(4,3) = 5
C(4,4) = 5
˲
1. . , .. ., : , 2002. 640 .
2. .., .., .. . -.: , 1988
3. / . .. . .: , 1998.
4. . . .:-, 2000.
5. .., .. Qbasic. .: , 2000.
6. '''', , , 2007.
7. Visual Basic ( ), . ., . ., . ., , 2003, - 94 .
