ПОЖАЛУЙСТА ПОМОГИТЕ, СРОООООЧНО Вводится число N, а затем - N чисел. Определить, сколько...

Question

ПОЖАЛУЙСТА ПОМОГИТЕ, СРОООООЧНО
Вводится число N, а затем - N чисел. Определить, сколько среди них пар одинаковых чисел. 2<=N<=100. На паскале

Comments

Один елемент может быть  общим для нескольких пар ?

---

Ну или сколько вы видите пара в этой последовальности 1 2 3 2 2 4

---

1 или 3 ?

Answer 1

var
  i, j, n, s: integer;
  a: array[1..100] of integer;
begin
  read(n);
  for i := 1 to n do read(a[i]);
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] = a[j] then inc(s);
  write(s);
end.

Comments

6
1 2 3 2 2 4
3 ? 

---

Лично я вижу вижу только пару 1 (2) 3 (2) 2 4 
ну или 1 (2) 3 2 (2) 4

---

или даже 1 2 3 (2) (2) 4

---

Здесь 3 двойки. Из 3 элементов можно составить 3 пары