Массив: Найти количество одинаковых значений в массиве. - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д