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

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.   

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"} 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   k<>0 then       writeln('SR=', s/k)  else        writeln('Net <0'); end.