Question

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

Answer 1

var
   i:integer;
   b:array[1..9]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 9 do
  begin
  b[i]:=random(10);
  write(b[i],' ');
  end;
writeln;  
writeln('Измененный массив:');
for i:=1 to 9 do
  begin
  if i mod 2=0 then b[i]:=0;
  write(b[i],' ');
  end
end.

Answer 2

Спасибо огромное =)