10 PRINT 请输入两组数的数据
12 DIM a(450, 33), c(100)
   FOR i = 1 TO 450: FOR j = 1 TO 33: a(i, j) = 0: NEXT j: NEXT i
18 PRINT 读入数据部分a
20 FOR i = 1 TO 8: REM 这里的i是a部分的行数
22     FOR j = 1 TO 5: REM 这里的j是a部分里每行的数字数(用0补)
24      READ a(i, j)
26    NEXT j
28   NEXT i
DATA 1,2,3,4,5
DATA 2,4,8,9,10
DATA 1,2,3,4,5
DATA 3,4,5,6,7
DATA 1,2,3,4,5
DATA 2,4,8,9,10
DATA 1,2,3,4,5
DATA 3,4,5,6,7
300 k = 0
305 FOR x = 1 TO 8 - 1: REM 这里x是a部分里的行数
310 FOR i = 1 TO 8 - x: REM 这里的i是a部分里的行数
315 FOR j = 1 TO 5: REM 这里的j是a部分每行数字个数
325  IF a(x, j) = a(x + i, j) AND a(x, j) <> 0 THEN GOTO 340
335  GOTO 355
340  k = k + 1: c(k) = a(x, j)
347 NEXT j
   IF k <> 0 THEN GOTO 350
   GOTO 355
350 FOR m = 1 TO k
    PRINT c(m);
    IF m = k THEN 353
353  NEXT m
354  PRINT -1 
355 NEXT i
    FOR i = 1 TO k: c(k) = 0: NEXT i
    k = 0
360 NEXT x
507 END

执行此程序的输出结果是：
1 2  3  4  5  6 k=5
1 2  3  4 5 6  1 2  3  4 5 6 k=10
1 2  3  4  5  6  1 2  3  4  5  6  1 2  3  4  5  6 k=15
2  4  8  9  10  k=5
1  2  3  4  5   k=5
1 2  3  4 5 6  1 2  3  4 5 6 k=10
3  4  5   6  7  k=5
1 2  3  4 5 6 k=5
正确的输出结果是：
1 2  3  4  5  6 k=5
1 2  3  4  5  6 k=5
1 2  3  4  5  6 k=5
2  4  8  9  10  k=5
1 2  3  4  5  6 k=5
1 2  3  4  5  6 k=5
3  4  5   6  7  k=5
1 2  3  4  5  6 k=5
   请各位高人，找出问题并修改后，能输出正确的结果。谢谢！