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

Question

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

Comments

в паскале

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.

---

Comments

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