program masiv;
uses crt;
const n=10;
var a:array [1..n] of integer;
i,s,p,f,smax:integer;
begin {заполняем массив }
    s:=1;
    for i:=1 to n do
    begin
        a[i]:=random(9);
        write(a[i]:2);
    end;
    writeln;
    while f=0 do
    begin {сортируем по возрастанию}
        f:=1;
        for i:=1 to (n-1) do
        if a[i]>a[i+1] then
        begin
            p:=a[i];
            a[i]:=a[i+1];
            a[i+1]:=p;
            f:=0;
        end;
    end;
    for i:=1 to n do
    begin {выводим отсартированый массив}
        write(a[i]:2);
    end;
    writeln;
    smax:=0;
    begin {что-то не понятное}
        for i:=1 to (n-1) do
        if a[i]=a[i+1] then
                s:=s+1
                else s:=1;
        if s>smax then
        smax:=s;
    end;
    writeln('максимальное количество одинаковых элементов.=',smax);
end.

#include "iostream"

using namespace std;

int main () {
    int n,s=0,k=0;
    cin >> n;
    int *a=new int[n]; //объявили динамический массив
    
    for (int i=0;i<n;i++) cin >> a[i]; //ввод элементов

    for (int i=0;i<n;i++)  {
        for (int j=0;j<n;j++) if (a[i]==a[j]) k++;
        if (k>s) s=k;
    k=0;}

cout << s;

return 0;}