Дан целочисленный массив размера N. Найти максимальное количество его одинаковых элементов.

[nadyaH]

Заполнение массива

begin
randomize;
N:=StrToInt(Edit1.Text);
for i:=1 to N do
x[i] := random(100);

Не знаю как написать функцию,чтобы находила максимальное кол-во его одинаковых элементов.

[Vanta11a]

Отсортировать, потом поиск. Не вариант?

[BDA]

Vanta11a, в общем случае да. Но если быть уверенным, что элементы всегда будут от 0 до 99 (или какого-нибудь малого диапазона при большом размере исходного массива), то можно завести массив длины 100, пройтись по массиву чисел, увеличивать значение в соответствующей ячейке созданного массива, пройтись по созданному массиву и найти максимальное значение, вывести индекс этого элемента.

[nadyaH]

function MaxKolOdinEl(a: TArray; N: integer): string;
var
 i,R,r1,j:integer;
begin
if N=1 then
  begin
  result:='Ошибка, N должна быть больше 1';
  end
else
  begin
  r1:=1;
  r:=1;
  result := '';
  for i:=1 to n do 
   begin
   r1:=a[i];
   for j:=i+1 to n do 
    begin
    if a[i]=a[j] then inc(r1); 
    end;
   if r1>r then R:=r1; 
   end;
if R=0 then
 begin
 result:='нету максимально кол-ва одинаковых  элементов';
 end
else
result:=IntToStr(R);
end;end;

Не правильно работает, выдаём просто максимальный элемент массива.
Не знаю что нужно исправить что бы функция работала правильно.

[Vanta11a]

Массив отсортирован изначально (я не вижу функции сортировки в коде)?
Вообще подход такой: считаете, пока символы одинаковы. Как только символ сменился - сравнение посчитанного, сброс счетчика. Вы счетчик не сбрасываете.

[nadyaH]

как отсортировать массив?

[Vanta11a]

Тык

[nadyaH]

type
  TArray = array[1..100] of Integer;
function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[N]);
end;

procedure qSort(var A: TArray; min, max: Integer);
var i, j, supp, tmp: Integer;
begin
supp:=A[max-((max-min) div 2)];
i:=min; j:=max;
while i<j do
  begin
    while A[i]<supp do i:=i+1;
    while A[j]>supp do j:=j-1;
    if i<=j then
      begin
        tmp:=A[i]; A[i]:=A[j]; A[j]:=tmp;
        i:=i+1; j:=j-1;
      end;
  end;
if min<j then qSort(A, min, j);
if i<max then qSort(A, i, max);
end;

function MaxKolOdinEl(a: TArray; N: integer): string;
var
 i,R,r1,j:integer;
begin
a[i]:=qSort(A, 0, High(A));
if N=1 then
  begin
  result:='...';
  end
else
 begin
 i:=1;
  if i <= n then
   begin
   R:=1;
   r1:=1;
   for i:=1 to n do
    begin
     r1:=1;
    for j:=i+1 to n do
      begin
      if a[i]=a[j] then inc(r1);
      end;
    end;
if r1>r then
R:=r1;
end;end;
if R=1 then
 begin
 result:='...;';
 end
else
result:=IntToStr(R);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,N: integer;
x: TArray;
begin
randomize;
N:=StrToInt(Edit1.Text);
for i:=1 to N do
x[i] := random(100);
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(x,N));
RichEdit2.Lines.Clear;
RichEdit2.Lines.Append(MaxKolOdinEl(x,N));
end;
end.

я запуталась.

[Vanta11a]

Я вот тоже не понял, чего Вы хотите добиться своей программой. Почему выбрали именно этот алгоритм сортировки?
Это вообще компилируется? Потому что вот тут

a[i]:=qSort(A, 0, High(A));

значение переменной i может быть любым.

[nadyaH]

type
TArray = array[1..40] of Integer;
function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[N]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
r1,r2,R:integer;
N:integer;
j,i,t:integer;
a: TArray;
begin
N:=StrToInt(Edit1.Text);
r:=1;
r1:=0;
r2:=0;
Randomize;
 for i:=1 to N do A[i] := Random(41);
 for i:=1 to N-1 do
  for j:=i+1 to N do
    if A[i] >= A[j] then begin
        t := A[i];
        A[i] := A[j];
        A[j] := t
        end;
for i:=1 to n do
 for j:=i+1 to n do
  if a[i]=a[j] then
   begin
   r:=r+1;
   end
  else
   begin
   r1:=r;
   If r1>=r2 then
    begin
    r2:=r1;
    r1:=0;
    r:=1;
    end
   else
   r:=1;
   r1:=0;
 end;
if r>r2 then r2:=r;
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(a,n));
RichEdit2.Lines.Clear;
RichEdit2.Lines.Append(IntToStr(r2));
end;
end.

Правильно работает программа?