{ Найти макс. элм. таб. и кол-во макс. элементов }

uses crt;
var a : array [1..10] of longint;
    k,n,i,max : longint;
begin
  clrscr;
  write('кол-во элм таб n=');
  readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
	readln(a[i]);
  end;
  max:=a[1];
  for i:=2 to n do if a[i]>max 
  then max:=a[i];
  for i:=1 to n do if a[i]=max
   then k:=k+1;
   writeln('max=',max);
   writeln('кол-во: ',k);
  readln;
end.