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

Входные данные

Сначала задано число N - количество элементов в массиве (1N100). Далее через пробел записаны N чисел - элементы массива. Массив состоит из целых чисел.

Выходные данные

Необходимо вывести единственное число - количество различных чисел в массиве.

Примеры

Входные данные

5

1 1 1 1 1

Выходные данные

1

Question

Информатика

Лидуся

17 марта, 16:29

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

Входные данные

Сначала задано число N - количество элементов в массиве (1N100). Далее через пробел записаны N чисел - элементы массива. Массив состоит из целых чисел.

Выходные данные

Необходимо вывести единственное число - количество различных чисел в массиве.

Примеры

Входные данные

5

1 1 1 1 1

Выходные данные

1

+1

Ответы (1)

Знаешь ответ?

Витуня · Answer 1

Program X;

var

mas: array[1 ... 1000000] of longint;

N, i, count:longint;

begin

count:=1;

readln (N);

for i:=1 to N do

read (mas[i]);

if N>1 then

begin

for i:=2 to N do

if mas[i]mas[i-1] then inc (count);

writeln (count)

end

else

writeln (1)

end.