Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 17
1

Матрицы. Определить элемент, который по модулю наименее отличается от среднего арифметического

27.03.2012, 11:23. Показов 1718. Ответов 2
Метки нет (Все метки)

В прямоугольной матрице определить элемент, который по модулю наименее отличается от среднего арифметического всех элементов матрицы.
Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2012, 11:23
Ответы с готовыми решениями:

Определить элемент матрицы, который по модулю наименее отличается от среднего арифметического элементов матрицы
В прямоугольной матрице определить элемент, который по модулю наименее отличается от среднего...

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

Найти наиболее и наименее удаленный от среднего арифметического элемент массива
вывести информацию о наиболее и наименее удаленных от среднего арифметического члена...

Найдите номер элемента, который отличается от среднего арифметического значения
Дана последовательность х1, х2, …, хn. Найдите номер элемента, который отличается от среднего...

2
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
27.03.2012, 14:56 2
Лучший ответ Сообщение было отмечено rAdo56 как решение

Решение

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
const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,m,s,x,y: integer;
  sr,min: real;
begin
  randomize;
  write('vvedite razmeri matrici: ');
  readln(n,m);
  s:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)-49;
      write(a[i,j]:4);
      s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln;
  sr:=s/n/m;
  min:=99;
  for i:=1 to n do
    for j:=1 to m do
    if abs(abs(sr)-abs(a[i,j]))<min then
    begin
      min:=abs(abs(sr)-abs(a[i,j]));
      x:=i;
      y:=j;
    end;
  writeln('srednee = ',sr:5:2);
  writeln(' naimenee otlichaeca a[',x,',',y,']  ',a[x,y]);
  readln;
end.
1
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 17
27.03.2012, 15:09  [ТС] 3
Благодарю.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2012, 15:09

Выяснить, на сколько каждый элемент массива отличается от среднего арифметического (написать программу по блок-схеме)
Ввести массив из 15 элементов, вывести его. На сколько каждый элемент массива отличается от ...

Удалить элемент массива, который меньше среднего арифметического
1.Задан массив вещественных чисел. Удалить элемент, который меньше среднего арифметического...

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

Найти индекс элемента массива, значение которого наименее отличается от среднего значения. Прокомментировать код
дан массив А из N элементов, Найти индекс элемента массива значение которого наименее отличается от...

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

Найти номер элемента массива, наименее отличающегося от среднего арифметического всех прочих
Дан целочисленный массив из 30 элементов.Элементы могут принимать любые целые значения Опишите на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.