program Hello; uses crt; var a,b:array[1..100000] of longint; d,i,max,n:longint; begin readln(n); for i:= 1 to n do begin read(a[i]); if max < a[i] then max:=a[i]; inc(b[a[i]]); end; for i:= 1 to max do d:=d+b[i] div i; writeln(d);
var i,n,a,d:longword; dem:array[1..1000000] of longword; f1,f2:text; begin assign(f1,'CLAN.INP');reset(f1); assign(f2,'CLAN.OUT');rewrite(f2); readln(f1,n); for i:=1 to n do begin read(f1,a); inc(dem[a]); if dem[a]=a then begin dem[a]:=0; inc(d); end; end; writeln(f2,d); close(f1);close(f2); end.
