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

Найти минимальный элемент под главной диагональю и максимальный элемент над главной диагональю

13.11.2014, 18:22. Показов 4584. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составьте программу поиска минимального элемента, расположен-
ного под главной диагональю, и максимального элемента, располо-
женного над главной диагональю заданной вещественной матрицы A
(n х n).
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.11.2014, 18:22
Ответы с готовыми решениями:

Найти максимальный элемент среди элементов, находящихся над главной диагональю
Написать программу которая для массива А(6,6) находит максимал элемент среди элементов находящихся над главной диагонали,еще найти номер...

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

Минимальный элемент над главной диагональю матрицы
Здравствуйте, почему функция mMinURCD выводит не верное значение мин. элемента над главной диагональю матрицы D? program lr5; ...

2
охотник
 Аватар для vint-81
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
13.11.2014, 20:06
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n=5;
      a:array[1..n,1..n]of real=((0.2, 0.3, -0.2, -0.1, 3),
                                 (0.2,   8,    7, -0.1, 2),
                                 (0.2, 0.3, -0.2, -0.1, 2),
                                 (0.2,-0.3, -0.2, -0.1, 2),
                                 (0.2,  -3, -0.2, -0.1, 2));
var i,j:integer;
    minp,maxn:real;
begin
  minp:=a[1,2];maxn:=a[2,1];
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      write(a[i,j]:6:2);
      if i>j then if minp>a[i,j] then minp :=a[i,j];
      if i<j then if maxn<a[i,j] then maxn :=a[i,j];
     end;
    writeln
   end; 
  writeln('минимальный элемент, расположенный под главной диагональю ',minp:0:2);
  writeln('максимальный элемент, расположенный над главной диагональю ',maxn:0:2);
end.
0
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
27.01.2016, 09:35
Pascal
10
  minp:=a[1,2];maxn:=a[2,1];
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.01.2016, 09:35
Помогаю со студенческими работами здесь

Массив: Не получается найти минимальный элемент "над главной диагональю" в динамическом массиве.
Здравствуйте. Не получается найти мин. элемент &quot;над главной диагональю&quot; в динам массиве. Размер массива 4 на 4, индекс от 0 до 3. ...

Вычислить четыре суммы: элементов на главной диагонали, на побочной, над главной и под главной диагональю
1. сформировать двумерный массив размером 4х4 с помощью функции random из промежутка и вывести на экран. Вычислить четыре суммы: элементов...

Двумерные массивы - сложение, мин. элемент над главной диагональю
Здравствуйте, помогите пожалуйста. У меня 3 проблемы: 1) Не правильно выводится минимальный элемент над глав. диагональю - функция...

Найти сумму элементов над главной диагональю и максимальный из них
Найти сумму элементов над главной диагональю и максимальный из них

Найти минимальный из элементов, расположенных под главной диагональю
Дана матрица А, 1&lt;n&lt;10. Найти минимальный из элементов, расположенных под главной диагональю. Переставить столбцы по возрастанию значения...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru