1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | CLS INPUT "N = ", N DIM A(N) ' ввод массива А FOR i = 1 TO N PRINT "A(" ; i ; ") = " ; INPUT A(i) NEXT i PRINT : PRINT "Массив А" ' вывод массива А FOR i = 1 TO N PRINT A(i) ; NEXT i : PRINT i = 1 : Flag = 0 ' поиск совпадающих чисел WHILE (i <= N - 1) AND (Flag = 0) j = i + 1 WHILE (j <= N) AND (Flag = 0) IF A(i)=A(j) THEN Flag=1 ELSE j=j+1 WEND i = i + 1 WEND PRINT : PRINT "О т в е т :" IF Flag = 1 THEN PRINT "Есть совпадающие числа." ELSE PRINT "Нет совпадающих чисел." END IF END |