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

Question

Дан массив, состоящий из 100 целых чисел: а) Вывести все числа, которые встречаются в этом массиве по нескольку раз; б) Вывести все числа, которые встречаются в массиве только по одному разу.

Answer 1

53

vasilena004

08 апреля 2023

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: