Question

Дан массив х: array[1..n] of integer, причем x[1]<=x[2]<=...<=x[n]. Найти количество различных чисел среди элементов массива.

Answer 1

Const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
writeln('Исходный массив:');
a[1]:=random(10);
write(a[1],'  ');
for i:=2 to n do
 begin
 a[i]:=a[i-1]+random(10);
 write(a[i],'  ');
 end;
writeln;
k:=1;
for i:=2 to n do if a[i-1]<>a[i] then k:=k+1;
writeln('k = ',k);
end.

Пример:
Исходный массив:
9  18  19  19  28  32  38  41  41  47  
k = 8

Answer 2

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var n:=ReadInteger('Размер массива: ');
  var a:=ArrRandom(n).Sorted.Println;
  println('Уникальных:',a.Distinct.count);
end.

Тестовое решение:

Размер массива:  20
1 8 23 25 25 44 51 54 63 64 65 69 70 73 77 77 81 84 91 96
Уникальных: 18

Answer 3

Для решения данной задачи можно использовать алгоритм подсчета уникальных элементов.

1. Создадим переменную count и инициализируем ее значением 1, так как первый элемент массива всегда будет уникальным. 2. Пройдемся по всем элементам массива, начиная со второго элемента. 3. Проверим, является ли текущий элемент массива уникальным. 3.1 Если текущий элемент отличается от предыдущего элемента, увеличиваем count на 1. 4. После завершения цикла, переменная count будет содержать количество различных чисел в массиве.

Пример реализации на языке Python:

def count_unique_numbers(arr):
    count = 1
    for i in range(1, len(arr)):
        if arr[i] != arr[i-1]:
            count += 1
    return count

# Пример использования
array = [1, 2, 2, 3, 4, 4, 4, 5, 6, 6, 7]
result = count_unique_numbers(array)
print("Количество различных чисел в массиве:", result)

В данном примере массив `array` содержит 11 элементов, но только 7 различных чисел. Результат выполнения программы будет:

Количество различных чисел в массиве: 7

Таким образом, мы нашли количество различных чисел среди элементов массива.