составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0

begin   var ar := arrrandom(10, 1, 10);   ar.Println;   for var i := 0 to 9 do   if(ar[i] mod 2 = 0) then ar[i] := 0   else ar[i] := ar[i] * 3;   ar.Print; end.