Если что-то непонятно - пиши.
Если на паскале, тогда:
a(10),i,n as integer
randomize
for i=1 to 10 do
a(i):=random(11)+1;
for i=1 to 10 do begin
if a(i) mod 2 <> 0 then
a(i):=a(i)*3;
if a(i) mod 2 = 0 then
a(i):=0;
end;
end.
