Паскаль Составьте программу…

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.