ПаскальАВС.

№1. Вычислить сумму и число положительных элементов матрица А[N, N], находящихся над главной диагональю.

№2. Дана вещественная матрица А размера n x m. Определить 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) ;

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) ;

end.