Написать функцию, находящую среднее арифметическое элементов матрицы

@Чувак · Регистрация: 04.01.2012

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

2. Написать функцию, находящую среднее арифметическое элементов матрицы.

@BumerangSP · 05.01.2012, 21:47

2.

Pascal

uses crt;
const m=10;
const z=10;
type array1 = array [0..z,0..m] of integer;
function SrA(var n,r: integer; mas1: array1): integer;    {Начало функции} 
var l,k,s,sredn: integer;
begin
 s:=0;
 for l:=1 to n  do
  begin
     for k:=1 to r do
    begin
     s:=s+mas1[l,k];
    end;
  end;
 sredn:=trunc(s/(n*r));
 SrA:= sredn;
end;                           {Конец функции}
var i,j,r,s,n,Sredn: integer;
    mas: array1;
begin
 clrscr;
 randomize;
 Write('Введите размерность строки/столбца: ');
 readln (n,r);
 for i:=1 to n  do
  begin
     for j:=1 to r do
    begin
         mas[i,j]:=random(10);
         write(' ',mas[i,j]);
    end;
     writeln;
  end;
 writeln;
 Sredn:=SrA(n,r,mas);
 writeln('Srednee arifm: ',Sredn);
End.

@Чувак 1 / 1 / 1 Регистрация: 04.01.2012 Сообщений: 62
		1
	Написать функцию, находящую среднее арифметическое элементов матрицы 05.01.2012, 19:56. Показов 1621. Ответов 1 Метки нет (Все метки) 2. Написать функцию, находящую среднее арифметическое элементов матрицы. 0

	05.01.2012, 21:47

Опции темы

Написать функцию, находящую среднее арифметическое элементов матрицы

Решение