program ZADACHA3;
var
a:array [1..10] of integer;
I : byte;
summ:integer;
begin
  Randomize;
  summ:=0;
For i:=1 to 10 do
  Begin
    a[i]:=(-10)+random(14-(-10)+1);
    Write(a[i],’ ‘);
    if (i mod 2 = 1) and (a[i] < 0) then
        summ := summ + a[i];
  end;
writeln(summ);
end.