var A:array[1..100] of longint;

n,i,max,t,s:longint;

f1,f2:text;

begin

assign(f1,'DAYSO.inp'); reset(f1); readln(f1,n);

assign(f2,'DAYSO.out'); rewrite(f2);

for i:=1 to n do read(f1,A[i]);

s:=0;

for i:=1 to n do s:=s+A[i];

max:=A[1];

for i:=1 to n do if max<A[i] then

begin

max:=A[i];

t:=i;

end;

writeln(f2,s);

write(f2,t);

close(f1);

close(f2);

end.

var v,r:text;
n,i,max,tam,s:longint;
a:array[1..100] of longint;
begin
assign(v,'DAYSO.inp');
reset(v);
readln(v,n);
for i:=1 to n do
begin
 read(v,a[i]);
 s:=s+a[i];
end;
assign(r,'DAYSO.out');
rewrite(r);
max:=a[1];tam:=1;
for i:=2 to n do
 if max<a[i] then begin max:=a[i];tam:=i;end;
writeln(r,s);
write(r,tam);
close(r);
end.