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

var a: array[1..10] of Integer;i,s,d: Integer;beginfor i:=1 to 10 dobegina[i]:=Random(10-1+1)+1;writeln('Число: ',a[i]);end;for s:=1 to 10 dobeginif a[s] mod 2<>0 then a[s]:=a[s]*3 else a[s]:=0;end;for d:=1 to 10 dobeginwriteln(a[d]);end;end.

const n=10;

var a:array [1..n] of integer;

i:integer;

begin

for i:=1 to n do a[i]:=random(10)+1;

writeln('Исходный массив: ',a);

for i:=1 to n do

if a[i] mod 2 = 0 then a[i]:=0 else a[i]:=a[i]*3;

writeln('Преобразованный массив: ',a)

end.