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

Question

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

Answer 1

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.