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

 

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.