Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/29: Рейтинг темы: голосов - 29, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.10.2012
Сообщений: 8

Найти среднее арифметическое максимального и минимального элемента матрицы

20.10.2012, 23:59. Показов 6019. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано матрицу из действительных чисел размером - M×N. Найти среднее арифметическое самого большого и самого маленького из значений ее элементов.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.10.2012, 23:59
Ответы с готовыми решениями:

Найти среднее арифметическое минимального и максимального элементов из 10 введенных
1. Даны величины углов треугольника. Определить является ли это треугольник: а) остроугольным б) тупоугольным 2. Найти среднее...

Текстовые файлы. Найти среднее арифметическое максимального и минимального элементов
Решить задачу с использованием структуры «текстовый файл» (в файле хранятся целые числа).

Найти отношение минимального элемента матрицы A(n,m) и максимального элемента матрицы B(k,p)
Найти отношение минимального элемента матрицы A(n,m) и максимального элемента матрицы B(k,p) (желательно каждую строчку объяснить, кто...

1
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
21.10.2012, 09:39
Лучший ответ Сообщение было отмечено Drugo4ek как решение

Решение

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
const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  m,n,i,j,max,min: integer;
begin
  randomize;
  write('Введите размеры матрицы m, n: ');
  readln(m,n);
  writeln('Матрица:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  max:=a[1,1]; min:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
    begin
      if a[i,j]>max then max:=a[i,j];
      if a[i,j]<min then min:=a[i,j];
    end;
  writeln('max = ',max);
  writeln('min = ',min);
  writeln('Среднее арифметическое max и min = ',(max+min)/2:0:1);
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.10.2012, 09:39
Помогаю со студенческими работами здесь

Среднее арифметическое значение максимального и минимального
Даны n чисел. Найдите среднее арифметическое значение максимального и минимального из них.

Уменьшить элементы матрицы на 5. Найти значение максимального и минимального элемента
Уменьшить элементы двумерного массива на 5. Найти в получившимся массиве значение максимального и минимального элемента.

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального элемента среди элементов главной...

Построить вектор из сумм максимального элемента і-ой строки и минимального элемента і-ого столбца матрицы
Дано целочисленную квадратную матрицу A, і,j=1,...,n. Получить суму чисел c1,...,cn, где cі - сума максимального элемента і - ой строки и...

Строки максимального и минимального элемента матрицы не меняются
помогите исправить программу program lab7; const nmax=100; var a: array of integer; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru