Abc pascal. дан одномерный массив в(n). добавить в конец массива элемент, равный сумме отрицательных элементов, стоящих на четных местах.

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.