Дан массив, состоящий из 100 целых чисел:

а) Вывести все числа, которые встречаются в этом массиве по нескольку раз;

б) Вывести все числа, которые встречаются в массиве только по одному разу.

Dim A (100) As Integer, Odin As Boolean

Dim k As Integer, i As Integer

Randomize

For i = 1 To 100

A (i) = Int (Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100

Print A (i) & CHR (9) ; ' Выводим начальный массив через табуляцию

Next i

Print "Повторяющиеся элементы"

For i = 1 To 100

For k = i+1 To 100

If A (i) = A (k) Then Print A (i) & CHR (9) ;

Next k

Next i

Print "Не повторяющиеся элементы"

For i = 1 To 100

Odin = True

For k = i+1 To 100

If A (i) = A (k) Then Odin = False

Next k

If Odin = True Then Print A (i) & CHR (9) ;

Next i

End