Массив: Найти количество одинаковых значений в массиве. - Turbo Pascal
Формулировка задачи:
Ребят, помогите найти количество одинаковых значений в массиве. У меня есть массив MAS с количеством значений h. Как найти одинаковые значения в этом массиве?
Решение задачи: «Массив: Найти количество одинаковых значений в массиве.»
textual
Листинг программы
const h=10;
var
a: array [1..h] of Integer;
i, j, cnt, c: Integer;
begin
for i:=1 to h do begin
Write('A[',i,'] = '); Read(a[i]);
end;
cnt:=0;
for i:=1 to h-1 do begin
j:=i-1; while (j>0) and (a[i]<>a[j]) do Dec(j); {смотрим позади}
if j>0 then Continue;
c:=0; for j:=i+1 to h do if a[i]=a[j] then Inc(c); {считаем впереди}
Inc(cnt,c+Ord(c>0));
end;
WriteLn(cnt);
end.