Program a;
uses crt;
const n=10;
var x:array[1..n] of integer;
k,s,i:integer;
BEGIN
randomize;
for i:=1 to n do
begin
x[i]:=random(20)-5;
write(x[i]:4);end;
writeln;
s:=0;
for i:=1 to n do
if (x[i]>0) and (x[i]<10)
then
Inc(s,x[i]);
s:=s+x[i];
writeln(s);
readln;
END.