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

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