输入N（2<=N<=100）个数（0-9之间），显示相邻2数的个数例输入 3，6，5，9，4，5，2，6，5，3输出（6，5）=2 （5，6）=1 （4，5）=1

clsinput Ndim A(N)for I=1 to Ninput A(I)next Ifor I=1 to N-1if A(I)=A(I+1)-1 then U(A(I))=U(A(I))+1if A(I)=A(I+1)+1 then D(A(I))=D(A(I))+1next Ifor I=1 to N-1if U(I)<>0 then print "(";I;",";"I+1")";"=";U(I)if D(I)<>0 then print "(";I;",";"I-1")";"=";D(I)next Iend说实话，你的样例输如少一个N，还少一个“6”还好，我看明白了

您好：左下表是我们单位九个反应锅温度计的历史记录，现在我们要做的是在最后一批料的记录中（如16828批）往以前的记录中去查，找出5个以上相同数字的批号来（如00001批）相同的数字是11，37，15，8，10，28；还有16827批和00002批的21，17，12，29，1，5都有5个以上相同的数字。另外还要按列查找3个以上相同的数字（如16826的16；16827的5；16828的6和第五列的00561；00562；00563），不知用什么软件可行？请高手指教， 本人不胜感激。00001 3 11 10 37 22 15 8 28 00002 21 21 12 22 17 29 5 1 00003 13 16 25 14 16 4 18 33 00561 34 18 25 3 16 30 7 12 00562 19 15 28 17 5 19 32 26 00563 29 23 12 25 6 24 33 15 16825 32 15 32 27 24 13 18 18 16826 27 19 3 33 14 25 2 16 16827 21 17 15 12 29 1 13 5 16828 11 37 15 8 10 28 17 6