Нужна помощь с задачей

[IMarkTop]

Дан одномерный массив А, состоящий из N элементов. Сколько значений
элементов встречается в массиве по 3 раза? Написать на PascalABC.Net

[macomics]

const N = 5000;
var count, c, i, j: Integer;
A: array [0 .. N - 1] of Integer;
begin
  count := 0; // Считаем количество элементов в массиве встречающиеся 3 раза
  for i := 0 to N - 1 do begin
    c := 0; // Считаем количество элементов A[i] в массиве
    for j := 0 to N - 1 do
      if A[i] = A[j] then inc(c);
    if c = 3 then inc(count); // Насчитали 3 элемента - увеличили счетчик count
  end;
  count := count div 3;
end;

т.к. каждый элемент встречается в массиве 3 раза, то цикл подсчета на каждый уникальный элемент в массиве, встречающийся 3 раза, сработает 3 раза (увеличит счетчик count на 3). Поэтому в конце счетчик надо просто разделить на 3.