В матрице найти количество элементов, которое больше чем среднее арифметическое строки

@finka · Регистрация: 30.01.2012

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

Дана матрица нужно найти количество элементов, которое больше чем среднее арифметическое строки. или как то так))

@BumerangSP · 31.01.2012, 15:23

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;
    sredn:=trunc(s/n);
    if n>sredn then
     writeln('Строка: ',l,' Средн. арифм: ',sredn);
    s:=0;
  end;
 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);
End.

@finka 0 / 0 / 0 Регистрация: 30.01.2012 Сообщений: 8
		1
	В матрице найти количество элементов, которое больше чем среднее арифметическое строки 30.01.2012, 23:25. Показов 1650. Ответов 1 Метки нет (Все метки) Дана матрица нужно найти количество элементов, которое больше чем среднее арифметическое строки. или как то так)) 0

	31.01.2012, 15:23

В матрице найти количество элементов, которое больше чем среднее арифметическое строки

Решение