ПаскальАВС.№1. Вычислить сумму и число положительных элементов матрица А[N,N],…

Program a10; var a,b: Array [1… 100,1… 100] of integer; k,i,n,j,s: integer; Beginread (n); For i: =1 to n dobeginFor j: =1 to n dobeginread (a[i,j]); end; end; i: =0; j: =0; s: =0; k: =0; while i <= n dobegini: =i+1; j: =j+1; if (a[i,j]>0) then k: =k+1; s: =s+a[i,j]; end; writeln (k,',s); end.2) Program a10; var a,b: Array [1… 100,1… 100] of real; k,i,n,m,j: integer; s: real; Beginread (n,m); For i: =1 to n dobeginFor j: =1 to m dobeginread (a[i,j]); end; end; k: =0; for j: =1 to m dobegins: =0; for i: =1 to n dobegins: =s+a[i,j]; end; for i: =1 to n dobeginif (a[i,j]> (s-a[i,j]) then k: =k+1; end; end; writeln (k); end.