Обнулить элементы массива 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.