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

var   a: array [1..10] of integer; //Инициализируем массив из 10 целых чисел   i: integer; begin   for i:= 1 to 10 do   begin     a[i]:= random(19) + 1; //Заполняем массив случайными числами от 1 до 20     if a[i] mod 2 = 1 then write(a[i], '  '); {Если очередной элемент массива нечетный, то он выводится}   end; end.