Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы - Turbo Pascal

Формулировка задачи:

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

Uses CRT;
type
 matr = array[1..3,1..3] of integer;
 Var
 X       : matr;
 i,j,k,s,n,p,sre     : byte;
 Begin
 Writeln('vvesti X(3,3):');
 For i:=1 to 3 do
 For j:=1 to 3 do
read(n);
 readln(k);
 begin
 s:=s+k;
writeln('seredne arefmetichne =',s/n:5:2);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
p:=p*x[ i , j ];
k:= k+1;
sre:= (exp(ln(p)*1/k));
end;
end.

Решение задачи: «Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы»

Листинг программы

Uses CRT;
const n=3;
type  matr = array[1..n,1..n] of integer;
Var X       : matr;
    i,j,k   : byte;
    s,p     :real;
Begin
Writeln('vvesti X(3,3):');
s:=0;
k:=0;
p:=1;
For i:=1 to 3 do
For j:=1 to 3 do
 begin
  write('X[',i,',',j,']=');
  readln(X[i,j]);
  if X[i,j]>0 then
   begin
    k:=k+1;
    s:=s+X[i,j];
    p:=p*X[i,j];
   end;
 end;
clrscr;
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(X[i,j]:5);
  writeln
 end;
if k=0 then write('Polozitelnyh net!')
else
 begin
  s:=s/k;
  p:=exp(ln(p)/k);
  writeln('seredne arefmetrichne =',s:5:2);
  writeln('seredne geometrichne =',p:5:2);
 end;
end.

Объяснение кода листинга программы

Создается матрица X размером 3x3.
Выводится информация о матрице X.
Задаются переменные s, p и k для вычисления среднего арифметического и среднего геометрического.
Запускается цикл, который проходит по всем элементам матрицы X.
Внутри цикла проверяется, является ли текущий элемент положительным.
Если элемент положительный, то увеличивается значение переменной k и вычисляется среднее арифметическое и среднее геометрическое.
После завершения цикла выводится информация о средних значениях.
Если значение переменной k равно нулю, то выводится сообщение Позитielnyh net!.
В противном случае вычисляются средние значения s и p.
Выводится информация о средних значениях.