Question

В массиве из 30 элементов числа образуют неубывающую последовательность. найти количество различных чисел в массиве

Answer 1

===== PascalABC.NET =====

begin

 var a:= ArrRandom(30, -99, 99);

 Sort(a);

 a.Println;

 Println('Количество различных чисел:', a.Distinct.Count)

end.

На самом деле в этом решении упорядоченность в массиве значения не имеет, что можно проверить, удалив или закомментировав строку с Sort(a);

Answer 2

Если в массиве числа образуют неубывающую последовательность, это означает, что числа упорядочены по возрастанию или не повторяются (если есть повторяющиеся, то они будут соседними). Для нахождения количества различных чисел в таком массиве, достаточно просто подсчитать уникальные значения.

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

Приведу пример кода на Python для решения этой задачи:

pythonCopy code
def count_unique_numbers(arr):
    unique_numbers = set()  # Создаем множество для хранения уникальных чисел
    for num in arr:
        unique_numbers.add(num)  # Добавляем число в множество
    return len(unique_numbers)  # Возвращаем количество уникальных чисел

# Пример использования:
array = [1, 2, 2, 3, 3, 3, 4, 5, 5, 5, 5, 6, 7, 7, 8, 8, 9, 10, 10, 11, 12, 13, 13, 14, 14, 14, 15, 15, 15, 15]
result = count_unique_numbers(array)
print(result)  # Выведет: 15 (15 уникальных чисел в массиве)

В этом примере, массив array состоит из 30 элементов, и в нем содержится 15 уникальных чисел. Обратите внимание, что массив предварительно должен быть отсортирован по возрастанию для того, чтобы обеспечить неубывающую последовательность.