Вычеркивание из массива повторяющихся элементов - VB
Формулировка задачи:
Помогите пожалуйста.Вводим одномерный массив размерности n.Создать новый массив,полученный вычеркиванием повторяющихся элементов исходного массива.например (3,1,2,2,0,0,0,0,1) получить (3,1,2,0).
Решение задачи: «Вычеркивание из массива повторяющихся элементов»
textual
Листинг программы
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, t As Boolean, a() As Integer, b() As Integer, kol As Integer
n = Val(InputBox("Ââåäèòå êîë-ГўГ® ýëåìåГ*òîâ: "))
ReDim Preserve a(n)
For i = 1 To n
a(i) = Val(InputBox("a(" & i & "):="))
s = s & " " & a(i)
Next
Print s
kol = 0
s = ""
For i = n To 1 Step -1
t = True
For j = i + 1 To n
If (a(n - j + 1) = a(n - i + 1)) Then t = False
Next
If t Then
kol = kol + 1
ReDim Preserve b(kol)
b(kol) = a(n - i + 1)
s = s & " " & b(kol)
End If
Next
Print s
End Sub