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

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.