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

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

найти произведение отрицательных элементов, расположенных на главной диагонали матрицы

Код к задаче: «Найти произведение отрицательных элементов, расположенных на главной диагонали матрицы - Turbo Pascal»

textual
Mulex:=1;
For i:=1 to Max do 
  If m[i,i]<0 then Mulex:=Mulex*m[i,i];

15   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ