uses crt;
var a:array[1..10] of real;
i:integer; s:real;
begin
  clrscr;
  s:=0;
  randomize;
  for i:=1 to 10 do
  begin
    a[i]:=random(100)-50;
    write(a[i],' ');
    if a[i]>0 then s:=s+a[i];

  end;

  write('s=',s);
end.