Массив: Найти количество одинаковых значений в массиве. - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы