program OddElementsArray;

var
A, B: array[1..20] of integer;
i, j: integer;

begin
// Заполнение массива A случайными числами от -10 до 10
Randomize;
for i := 1 to 20 do
A[i] := Random(21) - 10;

// Формирование массива B из нечетных элементов массива A
j := 0;
for i := 1 to 20 do
begin
if A[i] mod 2 <> 0 then
begin
j := j + 1;
B[j] := A[i];
end;
end;

// Вывод массивов A и B на экран
writeln('Массив A:');
for i := 1 to 20 do
write(A[i], ' ');

writeln;

writeln('Массив B (нечетные элементы массива A):');
for i := 1 to j do
write(B[i], ' ');

readln;
end.