Question

Паскаль, составьте программу для двумерного массива:
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел. 

Answer 1

for i := 1 to 4 do for j := 1 to 5 do if (a[ i, j ] < 0) then  m := m * a[ i,j ];