составить программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 затем преобразовывает его увеличивая все элементы с нечетными значениями в три раза а элементы с четными значениями заменяя на ноль СРОЧНО!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!

Если что-то непонятно - пиши.

Если на паскале, тогда:

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.