ПаскальАВС.№1. Вычислить сумму и число положительных элементов матрица А[N,N], находящихся над главной диагональю. №2. Дана веще
<em>ПаскальАВС. </em> №1. Вычислить сумму и число положительных элементов матрица А[N,N], находящихся над главной диагональю. №2. Дана вещественная матрица А размера <em>n</em> x <em>m</em>. Определить k - количество "особых" элементов массива А, считая его элемент особым, если он больше суммы остальных элементов его столбца.
Program a10; var a,b:Array [1..100,1..100] of integer; k,i,n,j,s:integer; Begin read(n); For i:=1 to n do begin For j:=1 to n do begin read(a[i,j]); end; end; i:=0;j:=0;s:=0;k:=0; while i<=n do begin i:=i+1;j:=j+1; if(a[i,j]>0)then k:=k+1; s:=s+a[i,j]; end; writeln(k,' ',s); <span>end. 2) Program a10; var a,b:Array [1..100,1..100] of real; k,i,n,m,j:integer; s:real; Begin read(n,m); For i:=1 to n do begin For j:=1 to m do begin read(a[i,j]); end; end; k:=0; for j:=1 to m do begin s:=0; for i:=1 to n do begin s:=s+a[i,j]; end; for i:=1 to n do begin if(a[i,j]>(s-a[i,j]))then k:=k+1; end; end; writeln(k); <span>end.</span></span>