var
n,i: integer;
b: array[1..101] of integer;
begin
readln(n);
for i:=1 to n do
begin
read(b[i]);
if ((i mod 2 = 0) and (b[i]<0)) then
inc(b[101], b[i]);
end;
write(b[101]);
end.
S = 27
к 0 прибавляется 7, затем 6, 5, 4, 3 ,2 = 27; то есть цикл выполняется до тех пор, пока а не станет равно 1