Сформировать одномерный массив, каждый элемент которого равен количеству нечетных отрицательных элементов соответствующей

Vara, b: array [ 1 . . 5 , 1 . . 5] of integer;i, j : integer;beginrandomize;writeln ( \' двумерный массив : \' );for i : = 1 to 5 dobeginfor j : = 1 to 5 dobegina [ i , j ] : = random ( 18 ) - 9;write ( a [ i , j ] : 4 );end;writeln;end;writeln ( \' одномерный массив: \' );for i : = 1 to 5 dofor j : = 1 to 5 doif ( a [ i , j ] < 0 ) and ( ( a [ i , j ] mod 2 ) < > 0 ) then b [ i ] : = b [ i ] + 1;for i : = 1 to 5 dowriteln ( b [ i ] );end.