Вычислить произведение отрицательных элементов расположенных в строках с не четными паскаль ​

program Proizv;

const

 Di =  8;    // размерность массива, можно менять на любое другое  строки

 Dj = 10;      // а здесь столбцы

var

 A: array [1..Di, 1..Dj] of Integer;

 i, j, p: Integer;

begin

 Randomize;

 for i := 1 to Di do begin

   WriteLn;

   for j := 1 to Dj do begin

     A [i, j] := Random (21) - 3;

     Write (A [i, j] :3, ' ');

   end;

 end;

 p := 1;

 for i := 1 to Di do begin

   if i mod 2 = 0 then          // если строка четная то пропускаем

     Continue;

   for j := 1 to Dj do begin

     if A [i, j] < 0 then       // перемножаем только отрицательные значения

       p := p * A [i, j];

   end;

 end;

 WriteLn;

 WriteLn ('Произведение = ', p);

 ReadLn;

end.

Объяснение:

для упрощения считаем, что хотя бы одно требуемое число будет найдено. Если таких чисел найдено не будет, то результат произведения будет равен 1.