var k,i,n:integer;
     s,p:real;

a:array[1..20] of real;
begin
readln (n);
for i:=1 to n do
readln (a[i]);
s:=0;k:=0;p:=1;
for i:=1 to n do
begin
if a[i]>0 then s:=s+a[i];
if a[i]=0 then k:=k+1;
if a[i]<0 then s:=p+a[i];
end;
writeln ('s=', s:5:0, 'k=',k, 'p=',p:5:0);
readln;
end.
