Submission #3005911

---

Source Code Expand

var
 s:ansistring;
 i,n,max,min:longint;
 a:array[0..5] of longint;
begin
  readln(n);
  readln(s);
  for i:=1 to n do
   inc(a[ord(s[i])-48]);
  max:=-maxlongint;
  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