Вопрос Написать программу в Pascal ABC.

[1234567]

В двумерном массиве A из m строк и n столбцов найти произведение элементов ниже главной диагонали и сумму элементов.

 

[Люций]

Ни спасибо, нифига, даже написал не туда, не надо так.

 

[Fack]

Диагонали могут быть только у квадратной матрицы когда m=n s:=0; p:=1; for i:=1 to m do for j:=1 to m do if i>j then begin s:=s+a[i,j];p:=p*a[i,j] end; writeln(p,,s);