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

В матрице m найти произведение положительных элементов
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) begin var m:=ReadlnInteger(); var a:=matrixRandom(m,m,-20,20); Println(a); var p:=1; for var i:=0 to m-1 do   for var j:=0 to m-1 do     if a[i,j]>0 then p:=p*a[i,j]; println(p); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы