{
2-массив b заполняем значениямит от -15 до 15, создать одномерный массив из нечетных элементов массива b,
Вывести то и другое, под элементы отвести по 4 позиции
}
program Hello;
const n=6;
var
b: array[1..n,1..n] of integer;
a: array of integer;
i, j, arrsize: integer;
begin
arrsize := 0;
for i := 1 to n do
for j := 1 to n do
b[i,j]:= random(31)-15;
for i := 1 to n do
for j := 1 to n do
if b[i,j] mod 2 <>0
then
begin
arrsize := arrsize + 1;
SetLength(a,arrsize);
a[Length(a)-1] := b[i,j];
end;
writeln('исходный 2-мерный массив b:');
for i := 1 to n do
begin
for j := 1 to n do
write( b[i,j]:4, ' ');
writeln();
end;
writeln('одномерный массив а - нечетных элементов массива b:');
for i :=0 to Length(a)-1 do
write(a[i]:4);
end.
