Submission #3327944

---

Source Code Expand

var
	n,a,b,c,d,i,min,max:Longint;
	s:String[100];
begin
	readln(n);
	readln(s);
	for i:=1 to length(s)do begin
		if s[i]='1'then inc(a)else if s[i]='2'then inc(b)else if s[i]='3'then inc(c)else inc(d);
	end;
	min:=n;
	if min>a then min:=a;
	if min>b then min:=b;
	if min>c then min:=c;
	if min>d then min:=d;
	if max<a then max:=a;
	if max<b then max:=b;
	if max<c then max:=c;
	if max<d then max:=d;
	writeln(max,' ',min);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result