В Delphy (одномерные массивы)

[Polusha]

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

[kakawkin]

в каком смысле найти кол-во различных элементов ?
привиде письменный пример - будет текстовый в ответ

[Polusha]

Сообщение от kakawkin

в каком смысле найти кол-во различных элементов ?
привиде письменный пример - будет текстовый в ответ

В том то и дело, что я сама смысл не могу догнать, может поможет кто.....

[Chudo4258]

может так?

j:=0;
for i:=1 to n-1 do
 if a[i]<>a[i+1] then inc(j);

Т.к. массив упорядочен, то повтор значения элемента возможен только при рядом стоящем элементе. И 100% он дальше нигде не встретиться.

вот так наверно не точно будет:

j:=0;
for i:=1 to n-1 do
 if a[i]<>a[i+1] then inc(j);

точнее наверно так:

j:=0;
for i:=1 to n-1 do
 if a[i]<>a[i+1] then inc(j);
if a[n]<>[n-1] then inc(j); //проверка дял последнего элемента
writeln('Различных элементов = ',j);