Если программа нужна на паскале, то вот держите
program ArrayZ;
uses CRT; // Подключение модуля CRT
var z: array[1..4, 1..3] of integer; // Массив i, j, n, o: integer;// Переменные для циклов и счета отрицательных и нечетных элементов
begin randomize; // Нужно для turbopascal // Заполнение массива for i := 1 to 4 do begin writeln; // Переход на другую строку for j := 1 to 3 do begin z[i, j] := random(60) - 30; // Рандомное заполнение массива write(z[i, j]:8); // Вывод в консоль массива end; end; // Нахождение отрицательных и нечетных элементов for i := 1 to 4 do for j := 1 to 3 do begin if z[i, j] mod 2 <> 0 then // Нахождение нечетных элементов n := n + 1; if z[i, j] < 0 then // Нахождение отрицательных элементов o := o + 1; end; writeln; // Переход строки чтобы не было конфликтов writeln('Нечетных элементов: ', n, ' | Отрицательных элементов: ', o); // Вывод результатаend.