var
  mas:array[1..10] of byte;
  i:byte;
 
begin
randomize;
writeln('Массив до обработки: ');
for i:=1 to 10 do
  begin
  mas[i]:=random(10)+1;
  write(mas[i], ' ');
  end;
writeln;
  writeln('Массив после обработки: ');
for i:=1 to 10 do
  begin
  if mas[i] mod 2<>0 then mas[i]:=mas[i]*3 else mas[i]:=0;
  write(mas[i], ' ');
  end;
end.