В одномерном массиве найти все элементы, встречающиеся более одного раза
Категория: Basic
2011-09-14 16:29:57
code: #basic
FOR i=1 TO n k=0 FOR j=1 TO n IF i<>j AND a(i)=a(j) THEN k=k+1 NEXT IF k>0 THEN PRINT a(i),k NEXT
Поделиться:
FOR i=1 TO n k=0 FOR j=1 TO n IF i<>j AND a(i)=a(j) THEN k=k+1 NEXT IF k>0 THEN PRINT a(i),k NEXT