решить задачу в pascal abc ** столе разбросано n монет различного достоинства(достоинство...

Question

решить задачу в pascal abc на столе разбросано n монет различного достоинства(достоинство каждой монеты не известно). После того какодинаковые монеты разложили в кучки (в каждой кучке монет одного достоинства) на столе оказалось K кучек. сколько кучек?

Comments

а хз как её решать. сам алгоритм не могу понять...

---

Сможете хоть как-нибудь

---

Формат входных данных

---

Через пробел выведены числа n d1 d2....dn

---

N-число монет di-достоинство

---

К-число кучек

---

а что сказано про d? есть ограничение по размеру для d?

---

I монеты

---

Все больше нечего не известно

---

Все спасибо огромное

Answer 1

Var
  a : array [1..10000] of boolean;
  n, i, k, d : integer;
begin
  read (n);
  k := 0;
  for i := 1 to n do
  begin
    read (d);
    if not a[d] then
    begin
      a[d] := true;
      k := k + 1;
    end;
  end;
  writeln (k);
end.