Ответ:

const M = 10;

var A: array [1..M] of integer;

var B: array [1..M] of integer;

var i,j: integer;

begin

// Задаем элементы массива

randomize();

writeln('Массив A: ');

For i:= 1 to M do

begin

A[i]:=random(77)-31;

write(A[i],' ');

end;

j:=1;

writeln();

writeln('Массив B: ');

For i:= 1 to M do

begin

if (A[i] mod 2 <> 0) then  

 begin

 B[j]:=A[i];

 write(B[j],' ');

 j:=j+1;

 end;

end;

end.

const n = 20;

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

B: array of integer;

i: integer;

begin

randomize;

for i := 1 to n do

begin

a[i] := Random(45 + 31 + 1) - 31;

write(a[i]:4);

end;

writeln();

for i := 1 to n do

if a[i] mod 2 <> 0 then

begin

SetLength(B, Length(B) + 1);

B[High(B)] := a[i];

end;

writeln('Нечетные элементы:');

for i := 0 to Length(B) - 1 do

write(B[i]:4);

writeln();

end.