program test;
 uses crt;
 const
 n=10;
 type
 mas2 = array [1..n] of integer;
 mas = array [1..n] of integer;
 var
 i,max,p:integer;
 a:mas;
 c:integer;
 begin
  clrscr;
  for i:=1 to n do
   begin
    write('A[',i,']=');read(a[i]);
   end;
   max:=a[1];
   for i:=1 to n do
    begin
     if max<a[i] then
      max:=a[i];
    end;
    p:=0;
     for i:=1 to n do
      begin
       if a[i]=a[i+1] then
        С[i]:=a[i];
        p:=p+1;
       end;
    writeln(max);
      writeln©;
      writeln(p);
    readkey;
    end.

  max:=a[1];
   for i:=1 to n do
    begin
     if max>a[i] then
      max:=a[i];
    end;

max:=a[1];
   for i:=1 to n do
    begin
     if max<a[i] then
      max:=a[i];
    end;
    p:=0;
     for i:=1 to n do
      begin
       if a[i]=max then inc(p);
       end;

     for i:=1 to n-1 do
         begin
            kol:=0;
            for j:=i+1 to n do
                  if a[i]=a[j] then kol:=kol+1;
            b[i]:=kol;
         end;  {тут ,как я понимаю,мы ишем одинаковые элементы,и записываем их кол-во в массив B,так?}
      max:=b[1];
      for i:=2 to n do
         if b[i]>max then max:=b[i]; {здесь ,как я понимаю,мы ищем максимальное значение в массиве совпадений B,так?}
      for i:=1 to n do

         if b[i]=max then write(a[i], ',' ); {Вот это что?есле элемент в массиве совпадений i равен максимальному числу совпадений,тогда выдать на печать элемент массива a[i],но как он таким образом выдает элемент,повторившийся наибольшее кол-во раз??}
      writeln;
      write ('‚л©вЁ (y/n)?');
      writeln;
      ch:=readkey;
   until upcase (ch)='Y';