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

@SEAN · Регистрация: 01.11.2009

Author24 — интернет-сервис помощи студентам

помогите решить задачу на подпрограмму.. я в нее не въехал:
Найти среднее арифметическое элементов расположенных ниже главной диагонали, для каждой из матриц А(4,4) и С(5,5).
Заранее спасибо

@Puporev · 21.12.2009, 18:17

Функция.

Pascal

type matr=array[1..50,1..50] of integer;
function Summ(a:matr;n:integer):real;
var i,j:integer;
     s:real;
begin
s:=0;
for i:=2 to n do
for j:=1 to i do
s:=s+a[i,j];
Summ:=s;
end;

@SEAN · 21.12.2009, 20:52 **[ТС]**

может быть кому нить поможет)

Pascal

program func;
type matr=array[1..50,1..50] of integer;
var A, B:matr; n,m:integer; sa, sb:real;
procedure RR(k:integer;var x:matr);
var i,j:integer;
begin
for i:=1 to k do
for j:=1 to k do
read(x[i,j]);
end;
function Summ(k:integer; x:matr):real;
var i,j,t:integer;
     s:real;
begin
t:=0;
s:=0;
for i:=1 to k do
for j:=1 to k do
if  (i>j) then begin
s:=s+x[i,j];
t:=t+1;end;
Summ:=s/t;
end;
begin
writeln ('vvedite razmeri  massivov A i B, n. m');
read(n,m);
writeln('vvedite elementi matrici A');
RR(n,A);
writeln('vvedite elementi matrici B');
RR(m,B);
sa:=Summ(n,A);
sb:=Summ(m,B);
Writeln('srednee arifmeticheskoe A =',sa:3:2);
Writeln('srednee arifmeticheskoe B =',sb:3:2);
readln;
end.

@SEAN 0 / 0 / 1 Регистрация: 01.11.2009 Сообщений: 18
		1
	Найти среднее арифметическое элементов расположенных ниже главной диагонали 21.12.2009, 17:57. Показов 2244. Ответов 2 Метки нет (Все метки) помогите решить задачу на подпрограмму.. я в нее не въехал: Найти среднее арифметическое элементов расположенных ниже главной диагонали, для каждой из матриц А(4,4) и С(5,5). Заранее спасибо 0

	21.12.2009, 20:52

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

Решение