bzadach62.BAS

{* Задача62 *}

REM basic

' Сжать вектор V(20), удалив из него все повторяющиеся элементы.


CLS

n = 20
Dim V(n + 1)
        PRINT "Исходный вектор"
RANDOMIZE TIMER
For i = 1 To n
        V(i) = CInt(RND * 9)
           PRINT V(i);
Next i: PRINT

        For i = 1 To n - 1
     For j = i + 1 To n
        If V(i) = V(j) Then
             For h = j To n - 1: V(h) = V(h + 1): Next h     
          n = n - 1                                       
             If j > n Then Exit For                          
             j = j - 1       
        End If
     Next j
Next i

        PRINT "Вектор без повторов"
For i = 1 To n
        PRINT V(i);
Next i

End