Динамические массивы Опции

[status]

Задача : Вводится массив. Верно ли, что в нем каждое значение встречается не более 2-х раз.

Как сравнить первое значение в массиве со всеми остальными значениями? или тут можно решить эту задачу другим образом?

[klem4]

по разному можно ... вот лобовой вариант:

i := 1;
count := 0;

while (i <= n) and (count <= 2) do begin
  count := 1;
  j := 1;
  while (j <= n) and (count <= 2) do begin
    if (a[i] = a[j]) and (i <> j) then inc(count);
    inc(j);
  end;
  if count <= 2 then inc(i);
end;

if i > n then writeln('Yes') else writeln('No');