Дан массив Z[1 ... 4,1 ... 3] с целыми элементами. Создать программу с процедурой которая вычислит количество отрицательных чисел и сумму нечетных элементов массива

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

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.