Найти произведение отрицательных элементов - Turbo Pascal

Формулировка задачи:

Добрый вечер, срочно нужна помощь) В общем задача такая В матрице Z (n,m) найти произведение отрицательных элементов.

Решение задачи: «Найти произведение отрицательных элементов»

Листинг программы

const
  n = 4;
  m = 3;
var
  z : array [1..n, 1..m] of integer;
  i, j, p : integer;  
begin
  p := 1;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      z[i,j] := random(10) - 5;
      write(z[i,j]:4);
      if z[i,j] < 0 then p := p * z[i,j] 
    end;
    writeln
  end;
  writeln('произведение отрицательных: ', p);  
  readln
end.

Объяснение кода листинга программы

В начале объявляются константы n и m, которые определяют количество строк и столбцов массива z.
Затем объявляется переменная z, которая представляет собой массив целых чисел размером n x m.
Далее объявляются переменные i, j и p, которые будут использоваться для итерации по массиву z и выполнения других операций.
Инициализируется переменная p значением 1.
С помощью цикла for происходит итерация по каждой строке массива z.
Внутри каждой итерации происходит итерация по каждому элементу массива z.
Для каждого элемента выполняется следующие действия:
- элемент записывается в стандартный вывод с помощью функции write
- если элемент отрицательный, то его значение умножается на текущее значение переменной p
- после окончания итерации по всем элементам строки, выводится значение переменной p.
В конце программы происходит чтение пользовательского ввода с помощью функции readln.