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

ответ:

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.