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

vara:array [1..5,1..5] of integer;b:array [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.