вычеркивание из массива повторяющихся элементов - VB

Формулировка задачи:

Помогите пожалуйста.Вводим одномерный массив размерности n.Создать новый массив,полученный вычеркиванием повторяющихся элементов исходного массива.например (3,1,2,2,0,0,0,0,1) получить (3,1,2,0).


textual

Код к задаче: «вычеркивание из массива повторяющихся элементов - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5

Источник