Задана квадратна таблиця розміру N ,що містить цілі числа.Знайти кількість непарних елементів

Ms dos qbasic 1.0 dim n as integer, m as integer cls input "n,m=", n, m if n < 3 then     print "n< 3"     system end if redim a(1 to n, 1 to m) as integer randomize timer for i = 1 to n     for j = 1 to m           a(i, j) = int(50 * rnd)           print using "###"; a(i, j);     next j     print next i print for i = 4 to n     for j = 1 to m           a(i - 1, j) = a(i, j)     next j next i for i = 1 to n - 1     for j = 1 to m           print using "###"; a(i, j);     next j     print next i примерn,m=5,8   43  6 19 48 44  6 28 10   5 48 44  1 31 30 25 33   19 30 46 27 29 34 45  8   17 37 43  1 37 46 25 45   48 48 27 21 36 48 44 37   43  6 19 48 44  6 28 10   5 48 44  1 31 30 25 33   17 37 43  1 37 46 25 45   48 48 27 21 36 48 44 37 замечание поскольку qbasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для было решено не заниматься созданием массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. просто считается, что n уменьшилось на 1.