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

const n=9;var b:array[1..n] of integer;   i:integer;beginfor 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.