Получить среднеарифметическое элементов матрицы, кратных 2 и среднеарифметическое элементов матрицы, кратных 3 - Turbo Pascal - Ответ 1302914

uses crt;
const n=7;
      m=6;
type matr=array[1..n,1..m] of integer;
 
function SrTRI(a:matr):real;
var i,j,k:byte;
    s:real;
begin
s:=0;k:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 3=0) then
 begin
  k:=k+1;
  s:=s+a[i,j];
 end;
if k=0 then SrTRI:=0
else SrTRI:=s/k;
end;
 
procedure SrOtr(a:matr;var sm,sr:real;var k:byte);
var i,j:byte;
begin
sm:=0;k:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 2=0) then
 begin
  k:=k+1;
  sm:=sm+a[i,j];
 end;
if k=0 then sr:=0
else sr:=sm/k;
end;
 
var a:matr;
    i,j,k_dva,k_tri:byte;
    sum_dva,sum_tri,sr_dva:real;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j], ' ');
   end;
  writeln;
 end;
writeln;
writeln('Среднее арифметическое кратных трем=',SrTRI(a):0:2, ' их количество=',k_tri,'  сумма=',sum_tri:0:2);
SrOtr(a,sum_dva,sr_dva,k_dva);
write('Среднее арифметическое кратных двум=',sr_dva:0:2,' их количество=',k_dva,'  сумма=',sum_dva:0:2);
end.