Если программа нужна на паскале, то вот держите

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.