Заданы три числа. Определить, есть ли среди них хотя бы одна пара одинаковых чисел

code: #basic
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

автор: Alina0

Поделиться:

Похожие статьи: