Найти количество нечётных элементов двумерного массива и записать их в одномерный массив.

Const N1 = 5;

N2 = 5;

var a: array [0 ... N1, 0 ... N2] of integer;

b: array [0 ... N1*N2] of integer;

i, j, n: integer;

begin

for i:=0 to N1 do {Заполнение массивы случайными числами}

for j : = 0 to N2 do

a[i, j] : = random (9999) ;

for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива}

for j : = 0 to N2 do

if (a[i, j] mod 2 = 0) then

begin

b[n] : = a[i, j];

n : = n + 1;

end;

for i:=0 to n do {Вывод полученных чисел}

writeln (b[i]) ;

end.