обнулить элементы массива B(9) в четных ячейках.

const n=9;
var b:array[1..n] of integer; 
  i:integer;
begin
for i:=1 to n do  b[i]:=random(20)-5;
for i:=1 to n do write(b[i]:5);
writeln;
 for i:=1 to n do 
  if (i mod 2=0) then b[i]:=0;
for i:=1 to n do  write(b[i]:5); 
end;
end.