Submission #2974127

---

Source Code Expand

var
  n,i,max,min:longint;
  c:char;
  a:array['1'..'4'] of longint;
begin
  readln(n);

  for i:= 1 to n do
    begin
      read(c);
      inc(a[c]);
    end;
  max:=-maxlongint;
  min:=maxlongint;
  for c:= '1' to '4' do
    begin
      if a[c]>max then max:=a[c];
      if a[c]<min then min:=a[c];
    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