Дан массив, состоящий из целых чисел. Известно, что числа упорядочены по неубыванию (то...

Question

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

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

Необходимо вывести единственное число - количество различных чисел в массиве.
Примеры
Входные данные
5
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.