Подпрограммы и обработка матриц

[Olesya777]

очень срочно.....помогите пожалуйста:Задана квадратная матрица A размером n
n (n 10), состоящая из действительных элементов.

x
7) Найти среднее арифметическое из всех положительных элементов этой матрицы.

[Mad_Cat]

k:=0;s:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then begin k:=k+1;s:=s+a[i,j];end;
if k<>0 then
writeln(s/k);

[Olesya777]

большое спасибо!!!!!!