var a:array[1..100000] of longint;
    s,max,i,n:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
s:=s+a[i];
end;
if s>100 then begin writeln('Yes');write(s-max);end
else begin writeln('No');write(s);end;
end.
/**************************************************************
	Problem: 1811
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/