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

uses crt;
const n=7;
      m=6;
type matr=array[1..n,1..m] of integer;
function Sred(a:matr;k:byte):real;
var i,j,kol:byte;
    s:integer;
begin
kol:=0;
s:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod k=0 then
 begin
  kol:=kol+1;
  s:=s+a[i,j];
 end;
if kol=0 then Sred:=0
else Sred:=s/kol;
end;
var a:matr;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Среднеарифметическое кратных 2=',Sred(a,2):0:2);
writeln('Среднеарифметическое кратных 3=',Sred(a,3):0:2);
readln
end.

uses crt;
const n=7;
      m=6;
type matr=array[1..n,1..m] of integer;
procedure Sred(a:matr;k:byte;var sum:integer; var kol:byte; var srd:real);
var i,j:byte;
begin
kol:=0;
sum:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod k=0 then
 begin
  kol:=kol+1;
  sum:=sum+a[i,j];
 end;
if kol=0 then srd:=0
else srd:=sum/kol;
end;
var a:matr;
    i,j,k:byte;
    sm:integer;
    sr:real;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
Sred(a,2,sm,k,sr);
writeln('Сумма кратных 2=',sm,' количество=',k,' cреднеарифметическое=',sr:0:2);
Sred(a,3,sm,k,sr);
writeln('Сумма кратных 3=',sm,' количество=',k,' cреднеарифметическое=',sr:0:2);
readln
end.