var
f: array [1..20] of integer;
sumdo, sumposle, pos,i, min:integer;
begin
min:=maxint;
for i:=1 to 20 do begin
readln(f[i]);
if f[i]<min then begin 
min:=f[i];
pos:=i;
end;
end;
//Вычсляем минимальный элемен массива и его позицию в массиве

for i:=1 to pos-1 do
if f[i]>0 then sumdo:=sumdo+f[i];
//Считаем положительные до минимального элемента

for i:=pos+1 to 20 do
if f[i]<0 Then inc(sumposle);
//Считаем отрицательные после минимального элемента
Writeln('Сумма:',sumdo);
Writeln('Количество:',sumposle);
End.