Сформировать двумерный массив а (3,4). Найти количество отрицательных нечетных элементов.

Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i, j]:=random (100) - 50; необходимо поставить read (a[i, j]) ;

const n=3; m=4;

var a:array[1 ... n, 1 ... m] of integer;

var i, j, count:integer;

begin

count:=0;

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=random (100) - 50;

write (a[i, j]:3, ' ') ;

end;

writeln;

end;

for i:=1 to n do

for j:=1 to m do begin

if (a[i, j]<0) and (a[i, j] mod 2 0) then count:=count+1;

end;

writeln ('Количество отрицательных нечетных элементов: ', count) ;

end.