Submission #2874284

---

Source Code Expand

{AT45}
var
a:array['1'..'4']of longint;
n,i,min,max:longint;
c:char;
begin
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
read(c);
inc(a[c]);
end;
min:=maxlongint;
max:=0;
for c:='1' to '4' do
begin
 if a[c]<min then
 min:=a[c];
 if a[c]>max then
 max:=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