{* Задача101 *}

REM basic

' Составить перечень значений элементов одномерного целочисленного массива.


10 INPUT "Количество элементов ="; N%: If N% < 1 Then 10
20 Dim AR%(N%), R%(N%)
30 For I=1 To N%
40 PRINT "Элемент №"; I;
50 INPUT AR%(I)
60 Next I
70 K% = 0
80 For I=1 To N%
90 For J=1 To K%
100 If AR%(I) = R%(J) Then 140
110 Next J
120 K% = K% + 1
130 R%(K%) = AR(I)
140 Next I
150 PRINT "Перечень элементов массива:"
160 For I=1 To K%
170 PRINT R%(I);
180 Next I
190 End