Задание:
Дан массив, состоящий из 100 целых чисел: а) Вывести все числа, которые встречаются в этом массиве по нескольку раз; б) Вывести все числа, которые встречаются в массиве только по одному разу.
Решение:
Dim A (100) As Integer, Odin As BooleanDim k As Integer , i As IntegerRandomizeFor i=1 To 100A (i)=Int (Rnd*100)+1 ' Заполняем массив случайными числами от 1 до 100Print A (i) & CHR (9); ' Выводим начальный массив через табуляциюNext iPrint «Повторяющиеся элементы"For i=1 To 100For k=i+1 To 100If A (i)=A (k) Then Print A (i) & CHR (9); Next kNext iPrint «Не повторяющиеся элементы"For i=1 To 100Odin=True For k=i+1 To 100If A (i)=A (k) Then Odin=FalseNext kIf Odin=True Then Print A (i) & CHR (9); Next iEnd
Знаете другой ответ?