Дана матрица. Вычислить сумму и число положительных элементов, находящихся под…

const N=4; var a: array[1… N,1… N]of integer; i,j,s,k: integer; beginfor i: =1 to N do for j: =1 to N do a[i,j]: =random (10); for i: =1 to N do begin for j: =1 to N do write (a[i,j],'); if j=N then writeln; end; for i: =1 to N dofor j: =1 to N doif (i>j) then begin inc (k); s: =s+a[i,j]; end; writeln (s,',k); end.