В одномерном массиве найти все элементы, встречающиеся более одного раза — QBasic(Бейсик)

disel 
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

Похожие записи/страницы: