Ответ:

var i :integer;

   C: array[1..15] of integer;

begin

 write('Массив С: ');

 for i := 1 to 15 do

 begin

   C[i] := random(0, 100);

   write(C[i], ' ');

 end;

 writeln();

 write('Нечётные элементы массива: ');

 for i := 1 to 15 do

 begin

   if C[i] mod 2 <> 0 then write(C[i], ' ');  

 end;  

end.