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

Найти максимальный среди минимальных элементов строк массива

12.04.2017, 23:02. Показов 2568. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В двумерном массиве Arr[1..n,1..m] найти максимальный среди минимальных элементов строк массива. Вывести на экран значения этих элементов и их индексы
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.04.2017, 23:02
Ответы с готовыми решениями:

Дана матрица размера M × N. Найти максимальный среди минимальных элементов ее строк
Добрый день. Посмотрите, может поможете? Matrix27. Дана матрица размера M × N. Найти максимальный среди минимальных элементов ее строк. ...

Найти максимальный среди минимальных элементов столбцов массива
В двумерном массиве Arr найти максимальный среди минимальных элементов столбцов массива. Вывести на экран значения этих элементов и их...

Поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный элемент
поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный элемент столбца,содержащего большее...

1
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
13.04.2017, 00:09
Лучший ответ Сообщение было отмечено alex2099 как решение

Решение

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
var
  i,j,n,m,imin,jmin,imax,jmax:byte;
  a:array[1..100,1..100] of integer;
begin
  randomize;
  write('N,M = '); readln(n,m);
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(101); write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  for i:=1 to n do begin
    imin:=i; jmin:=1;
    for j:=2 to m do
      if a[i,j]<a[imin,jmin] then begin
        imin:=i; jmin:=j;
      end;
    writeln('Min = ',a[imin,jmin],'(',imin,',',jmin,')');
    if i=1 then begin
      imax:=imin; jmax:=jmin;
    end else
    if a[imin,jmin]>a[imax,jmax] then begin
      imax:=imin; jmax:=jmin;
    end;
  end;
  writeln('Max = ',a[imax,jmax],'(',imax,',',jmax,')');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.04.2017, 00:09
Помогаю со студенческими работами здесь

Поменять местами максимальный из минимальных элементов столбцов и минимальный из максимальных элементов строк
Поменять местами максимальный среди минимальных элементов столбцов и минимальный среди максимальных элементов строк

Найти максимальный элемент среди отрицательных элементов массива C
дан массив C(12). Найти максимальный элемент среди отрицательных элементов массива C . определить количество положительных элементов. ...

Найти максимальный элемент среди положительных элементов массива M(25)
Дан массив М(25). Нужно найти максимальный элемент среди положительных элементов. Помогите, пожалуйста

Подрограммы. Для этих матриц найти минимум среди минимальных элементов и минимум среди максимальных элементов, произвести замену.
Помогите пожалуйста, из-за сессии не успеваю а сдавать уже завтра: Ввести двумерные массивы X1 (N1xM1) ,X2(N2xM2) , X3(N3xM3) . Для этих...

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Отображение реквизитов в документе по условию и контроль их заполнения
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. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru