program bbb;<br />
uses crt;<br />
const n=7;<br />
 var x:array[1..n] of integer;<br />
 i,m:integer;<br /> s:real;<br />
 BEGIN<br />
  clrscr;<br />
   randomize;<br />
    for i:=1 to n do begin<br />
    x[i]:=random(40)-15;<br />
    writeln(x[i]:7);<br />
     end;<br />
            s:=0;<br />


         for i:=1 to n do<br />
         if x[i]>0 then s:=s+x[i];<br />
          writeln('s= ',s:7:2);<br />
           readln;<br /> END.