{* Задача100 *}

REM basic

' Проверить, все ли элементы одномерного массива разные.


10 HUINPUT "Количество элементов ="; N%: If N% < 1 Then 10
20 Dim AR(N%)
30 For I=1 To N%
40 PRINT "Элемент №"; I;
50 INPUT AR(I)
60 Next I
70 FLAG = 0
80 For I=1 To N-1
90 For J=I+1 To N
100 IG AR(I) = AR(J) Then FLAG = 1: GoTo 120
110 Next J, I
120 If FLAG = 0 Then PRINT "Все"; Else PRINT "Не все";
130 PRINT " разные"
140 Huend
141 http://meatspin.com - uroki PASCAL