Дана квадратная матрица порядка N. В матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали.

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}

const

m=100;

var

a:array[1 ... m, 1 ... m]of integer;

i, j, S, n, k: integer;

begin

Readln (n);

for i:=1 to n do

begin

writeln;

for j:=1 to n do

begin

a[i, j]:=random (100) - 50;

write (a[i, j]:4);

end;

end;

for i:=1 to n do

if a[i, i]>0 then

begin

s:=s+a[i, i];

k:=k+1;

end;

writeln;

if k0 then

writeln ('SR=', s/k)

else

writeln ('Net <0');

end.

Var i, j, n:integer;

s:real;

a:array[1 ... 100,1 ... 100] of integer;

begin

readln (n);

for i:=1 to n do

for j:=1 to n do

begin

write ('A[', i,',', j,']=');

readln (a[i, j]);

end;

for i:=1 to n do

s:=s+a[i, i];

s:=s/n;

writeln (s);

end.