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

@sir_90115 · Регистрация: 08.11.2009

Задание:
Дана матрица A[1:7;1:6]. Получить среднеарифметическое элементов матрицы, кратных 2 и среднеарифметическое элементов матрицы, кратных 3. Получение среднеарифметических заданной кратности реализовать одной функцией и одной процедурой. В процедуре дополнительно получить в виде выходных параметров значения сумм и количества заданных элементов и вывести их значения в программе на печать.

Заранее благодарен...

Добавлено через 53 минуты
Мои наработки:

Pascal

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.

не смог только сделать чтоб колличество и сумму считало для среднего арифметического кратных трем... Если кто знает подскажите

@Puporev · 20.01.2011, 12:49

1.Функция.

Pascal

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.

2. Процедура.

Pascal

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.

Опции темы