Вычислить среднеарифметическое значение элементов матрицы

@Balans_59 · Регистрация: 22.04.2015

Создать матрицу 5*5. Вычислить среднеарифметическое значение элементов матрицы S. Вычислить сколько элементов матрицы равно S, больше, меньше S. Вывести результат.

@ZX Spectrum-128 · 23.04.2015, 10:53

Pascal

const
  n=10;
var
  a: array[1..n,1..n] of real;
  i,j,k1,k2,k3: integer;
  sum:real;
begin
  sum:=0;
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=n*random - n div 2;
          write(a[i,j]:7:2);
          sum:=sum+a[i,j];
        end;
      writeln;
    end;
  sum:=sum/(n*n);
  writeln;
  writeln('Среднее: ',sum:8:2);
  k1:=0;
  k2:=0;
  k3:=0;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if a[i,j]=sum then
          inc(k1);
        if a[i,j]>sum then
          inc(k2);
        if a[i,j]<sum then
          inc(k3);
      end;
  writeln('Равных:  ',k1);
  writeln('Больших: ',k2);
  writeln('Меньших: ',k3);
  readln;
end.

@Balans_59 · 23.04.2015, 11:01 **[ТС]**

Спасибо большое!!!!

@Puporev · 23.04.2015, 11:59

Сообщение от Balans_59

Создать матрицу 5*5.

А почему n=10?

@Balans_59 · 23.04.2015, 12:00 **[ТС]**

думаю что n=5

@ZX Spectrum-128 · 23.04.2015, 12:24

Сообщение от Puporev

А почему n=10?

Из похожей программы переделал. Забыл подправить.

@Balans_59 · 23.04.2015, 12:27 **[ТС]**

тобишь n=5?

@Balans_59 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 21
		1
	Вычислить среднеарифметическое значение элементов матрицы 22.04.2015, 20:31. Показов 1367. Ответов 6 Метки нет (Все метки) Создать матрицу 5*5. Вычислить среднеарифметическое значение элементов матрицы S. Вычислить сколько элементов матрицы равно S, больше, меньше S. Вывести результат. 0

@Balans_59 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 21
	23.04.2015, 11:01 [ТС]	3
	Спасибо большое!!!! 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	23.04.2015, 11:59	4
	Сообщение от Balans_59 Создать матрицу 5*5. А почему n=10? 0

@Balans_59 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 21
	23.04.2015, 12:00 [ТС]	5
	думаю что n=5 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	23.04.2015, 12:24	6
	Сообщение от Puporev А почему n=10? Из похожей программы переделал. Забыл подправить. 0

@Balans_59 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 21
	23.04.2015, 12:27 [ТС]	7
	тобишь n=5? 0

Опции темы

Вычислить среднеарифметическое значение элементов матрицы

Решение