xDmitryINFO Var
 mas:array[1..999] of integer;
 n,sum:integer;
begin
 sum:=0;
 randomize;
 readln(n);
 for i:=1 to n do
begin
  mas[i]:=random(201)-100;
  write(mas[i],' ');
end;
writeln;
for i:=1 to n do
 if (mas[i]>0) AND (mas[i]<10) then
  sum:=sum+mas[i];
writeln(sum);
end.