{Найти количество различных чисел в одномерной таблице}(*МЕТОД:Каждый следующий элемент сравниваем со всеми предыдущими и если равных ему среди предыдущих не будет то flag оставляем неизменным и счетчик к увеличиваем*)

uses crt;
var a : array [1..10] of longint;
    i,j,k,flag,n : integer;
begin
clrscr;
write('введите кол.эл.таб. а n=');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
k:=1;
{Пусть разных чисел 
нет т.е.все одинак.}
for i:=2 to n do
begin
flag:=0;j:=i-1;
{j -стоит перед i}
while (flag=0) and (j>=1) do
begin
if a[i]=a[j] then flag:=1;
{решение}
j:=j-1;
end;
if flag=0 then k:=k+1;
end;
write('Колич.различных 
чисел к=',k);
readln;
end.