Листинг программы

program z9; {Найти в одномерном числовом массиве элм. ,

 который наибольшее кол-во раз повторяется в массиве.Вывести это

 число и кол-во его вхождений в массив }

uses crt;

var a:array[1..1000]of longint;

    b:array[1..500]of longint;

    i,j,n,k,l,max,min:longint;

 begin

  clrscr;

   write('Введите кол-во элм таблицы:');readln(n);

   for i:=1 to n do

    begin

     write('a[',i,']=');readln(a[i]);

    end;

   for i:=1 to n-1 do

    for j:=i+1 to n do

     if a[i]>a[j] then begin

                        min:=a[j];a[j]:=a[i];

       a[i]:=min;

            end;

   l:=a[1];j:=0;k:=1;

    for i:=2 to n+1 do

     if l=a[i] then inc(k)

               else begin

                     inc(j);b[j]:=k;k:=1;

          l:=a[i];

                    end;

   max:=b[1];

   for i:=2 to j do if max<b[i] then max:=b[i];

   writeln('число:',a[1]);

   write('их кол-во:',max);readln;

 end.