Submission #3049282

---

Source Code Expand

var
 n,i,j,min,max:longint;
 a:array[1..10001] of longint;
 s:string;
begin
 readln(n);
 read(s);
 for i:=1 to length(s) do
  begin
   val(s[i],j);
   inc(a[j]);
  end;
 min:=maxlongint;
 for i:=1 to 4 do 
  begin
   if a[i]>max then max:=a[i];
   if a[i]<min then min:=a[i];
  end;
 writeln(max,' ',min);
end.

Submission Info

Compile Error

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

Judge Result