0 / 0 / 0
Регистрация: 01.02.2018
Сообщений: 5
1

Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим элементов матрицы более 1

01.02.2018, 10:45. Показов 1594. Ответов 5
Метки нет (Все метки)

Найти количество элементов вещественной матрицы a[1..n,1..n], модуль разности между которыми и средним арифметическим элементов матрицы более 1.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.02.2018, 10:45
Ответы с готовыми решениями:

Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим матрицы больше 1
Задача : Найти количество элементов вещественной матрицы a, модуль разности между которыми и...

Найти значение разности между элементом и средним арифметическим всех элементов массива
Определить номер элемента, для которого минимально значение разности между этими элементом и...

Найти разницу между средним арифметическим положительных и отрицательных элементов столбцов с нечётными номерами матрицы
Доброго времени суток! Ребята, подскажите пожалуйста, что это за бредятина и чего хочет от меня...

Определение разности между средним арифметическим всех элементов массива
Записать алгоритм и программу определения разности между средним арифметическим всех элементов...

5
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
01.02.2018, 10:55 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим матрицы больше 1
0
1754 / 1346 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
01.02.2018, 11:02 3
Pascal
1
2
3
4
5
6
begin
  var n := ReadlnInteger('N =');
  var a := MatrRandomReal(n, n, -10, 10); a.Println;
  var average := a.ElementsByRow.Average;
  writeln('Количество: ', a.ElementsByRow.Where(v -> abs(v) - average > 1).Count)
end.
0
0 / 0 / 0
Регистрация: 01.02.2018
Сообщений: 5
01.02.2018, 13:32  [ТС] 4
можно с помощью процедур эту задачу решить. Извеняюсь, что заранеее не предупредил.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32450 / 20944 / 8105
Регистрация: 22.10.2011
Сообщений: 36,212
Записей в блоге: 7
01.02.2018, 13:46 5
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

С процедурами - так с процедурами:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
const
  n = 10;
type
  ta = array[1..n, 1..n] of real;
  
procedure average(const a : ta; var av : real);
var i, j : integer;
begin
  av := 0;
  for i:=1 to n do
    for j:=1 to n do av:=av+a[i,j];
  av := av / sqr(n);
end;
procedure proc_count(const a : ta; av : real; var c : integer);
var i, j : integer;
begin
  c := 0;
  for i:=1 to n do
    for j:=1 to n do if abs(a[i,j]-av)>1 then inc(c);
end;
 
var
  a: ta;
  i, j, count: integer;
  avr: real;
begin
  writeln('Matrix:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:= -2 + random * 4; // случайное в диапазоне от -2 до 2
      write(a[i,j]:8:3);
    end;
    writeln;
  end;
  average(a, avr:8:3);
  writeln('Average = ',avr);
  proc_count(a, avr, count);
  writeln('Count = ',count);
end.
0
0 / 0 / 0
Регистрация: 01.02.2018
Сообщений: 5
01.02.2018, 14:06  [ТС] 6
счастья,удачи, здоровья, боже храни вас господь)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.02.2018, 14:06
Помогаю со студенческими работами здесь

Определить разность между средним арифметическим элементов массива и средним арифметическим максимального и минимального элементов
Здравствуйте, у меня не выводит все значения которые прошу вывести задание:Дан двумерный массив...

Написать программу определения разности между средним арифметическим всех элементов массива
Записать алгоритм и программу определения разности между средним арифметическим всех элементов...

Найти количество элементов массива между средним арифметическим и нулем
вот. что не верно? // ййййй.cpp: определяет точку входа для консольного приложения. // ...

Найти количество элементов массива значения которых лежат между средним арифметическим элементов массива и
Найти количество элементов массива A значения которых лежат между средним арифметическим элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru