Дана матрица. Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов

@VL · Регистрация: 16.05.2012

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

Дана матрица A(N, M). Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов. помогите пожалуйста

@ermolay · 16.05.2012, 22:44

Pascal

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,sum,n,m,k: integer;
  sr: real;
begin
  randomize;
  write('Введите размеры матрицы n и m: ');
  readln(n,m);
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      sum:=sum+a[i,j];
    end;
    writeln;
  end;
  writeln;
  
  sr:=sum/n/m;
  writeln('Среднее арифметическое элементов массива: ',sr:5:2);
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>sr then inc(k);
  writeln(k,' элементов больше среднего арифметического');
  readln;
end.

@VL · 17.05.2012, 14:47 **[ТС]**

не понимаю высказывание, но спасибо большое за код)

@VL 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 36
		1
	Дана матрица. Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов 16.05.2012, 21:59. Показов 6053. Ответов 2 Метки нет (Все метки) Дана матрица A(N, M). Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов. помогите пожалуйста 0

@VL 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 36
	17.05.2012, 14:47 [ТС]	3
	не понимаю высказывание, но спасибо большое за код) 0

Дана матрица. Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов

Решение