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

Решение задачи:Кон написан в программе PascalABC.NET.var a: array [1..10] of integer;i: integer;beginrandomize;write(\'Первоначальный массив: \');for i :=1 to 10 dobegina[i] := random(1, 10); //Массив заполняется произвольными целыми числами в диапазоне от 1 до 10.write(a[i],\' \'); //Данная процедура выводит числа массива на экран через пробел в строчку.end;writeln;write(\'Преобразованный массив: \');for i := 1 to 10 dobeginif odd(a[i]) = true then begina[i] := a[i] * 3;write(a[i], \' \');endelse begina[i] := 0;write(a[i], \' \');end;end;end.