Есть массив, проверить, является ли он перестановкой - QBasic

Формулировка задачи:

Проблема! Есть массив, проверить, является ли он перестановкой.Не работае программа при вводе одинаковых чисел(((( Подскажите, как узнать, есть ли одинаковые элементы?

Код к задаче: «Есть массив, проверить, является ли он перестановкой - QBasic»

textual
CLS
RANDOMIZE TIMER
n = 10
DIM a(n)
 
FOR i = 1 TO n
   a(i) = FIX(90 * RND)
   PRINT a(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n
   k = 0
   FOR j = 1 TO n
   IF a(i) = a(j) THEN k = k + 1
   IF k > 1 THEN PRINT "NO": END
NEXT j, i
 
PRINT "YES"
END

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ