Самый редко встречаемый элемент массива

[Xcopy]

Самый часто встречаемый элемент массива:

var
a: array [1..n] of integer;
i, j, item, buf, max: integer;
begin
max:=0;
 for i:=1 to n do
     begin
     buf:=0;
        for j:=n downto i do
            if A[j]=A[i]
            then buf:=buf+1;
     if buf>max then
                    begin
                    max:=buf;
                    item:=a[j]; 
                    end;
     end;
writeln('samoe vstrechaemoe  - ', item,' vstretilos ', max, ' raz.');
readln;
end.

Вот, рабочая прога (под консольное приложение)

А как найти самый редко встречаемый?

[pu4koff]

...
max:=n;
...
if buf<max then
...

[Alt]

Низабудь пра маи капирайты!!!!!1111
From Stilet:А что классический вариант русского языка уже не в моде?
Прогу то я написал)

[Xcopy]

конечно ты!
просто злые админы тему удалили предыдущую... а как тя звать я и забыл)))

[Alt]

Stilet, классический вариант, конечно, в моде, просто я в данном случае процитировал другого человека (фраза про копирайты не моя).
Хсору, просто вместе max:=0 ставишь max:=n, а вместо условия if buf>max ставишь наоборот, if buf<max. Вот что должно получиться:

var
a: array [1..n] of integer;
i, j, item, buf, max: integer;
begin
max:=n;
 for i:=1 to n do
     begin
     buf:=0;
        for j:=n downto i do
            if A[j]=A[i]
            then buf:=buf+1;
     if buf<max then
                    begin
                    max:=buf;
                    item:=a[j]; 
                    end;
     end;
writeln('samoe vstrechaemoe  - ', item,' vstretilos ', max, ' raz.');
readln;
end.

Самому то подумать не дано, не?

[Xcopy]

Alt, перед тем как обратиться сюда я конечно как переделать твой первый алгоритм (но поменял только buf>max на buf<max)... Вылез ответ 0(

[Alt]

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

Alt, перед тем как обратиться сюда я конечно как переделать твой первый алгоритм (но поменял только buf>max на buf<max)... Вылез ответ 0(

Ну это потому, что там изначально задается max:=0
А что может встречаться реже того, что встретилось 0 раз?