Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 02.02.2013
Сообщений: 40

В каждой строке матрицы выбрать элемент с наименьшим значением

09.02.2013, 17:10. Показов 1494. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана матрица порядка n*m, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.02.2013, 17:10
Ответы с готовыми решениями:

В каждой строке матрицы выбрать элемент с наименьшим значением
дана действ. матрица размерностью mxn, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем...

В каждой строке матрицы выбрать элемент с минимальным значением
В каждой строке матрицы размера N*M выбрать элимент с минимальным значением, затем среди этих чисел найти максимальное и указатьего индекс.

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

1
 Аватар для Новичок
1682 / 1098 / 489
Регистрация: 17.07.2012
Сообщений: 5,361
09.02.2013, 18:47
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program m2;
uses crt;
var a:array[1..100,1..100] of Integer;
i,j,m,n,maxa,maxb,min:Integer;
begin
repeat
ClrScr;
Write('Введите размеры матрицы:');
Readln(n,m);
until (m in [1..100]) and (n in [1..100]);
Writeln('Введите значения элементов матрицы:');
for i:=1 to n do
for j:=1 to m do Read(a[i,j]);
Writeln('Введенная матрица:');
for i:=1 to n do
begin
for j:=1 to m do Write(a[i,j]:4);
Writeln;
end;
for i:=1 to n do
begin
min:=1;
for j:=2 to m do if a[i,j]<a[i,min] then min:=j;
if (maxa=0) and (maxb=0) then
begin
maxa:=i;
maxb:=min;
end else
if a[i,min]>a[maxa,maxb] then
begin
maxa:=i;
maxb:=min;
end;
end;
Writeln('Наибольший элемент среди наименьших элементов строк:',a[maxa,maxb],',его индексы:',maxa,',',maxb);
Readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.02.2013, 18:47

В каждой строке матрицы выбрать элемент с наименьшим значением
Помогите написать программу Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается...

В каждой строке матрицы выбрать элемент с наименьшим значением
Парни плз умляю помогите с зада4ей: Дана действительная матрица n*m, все элементы которой различны.В каждой строке выбирается элемент...

В каждой строке матрицы выбрать элемент с наибольшим значением, затем среди этих чисел выбрать наименьшее
Данна действительна матрица размером n * m, все элементы которой различны. В каждой строке выбирается элемент с наибольшим значением, затем...

Выбрать в каждой строке матрицы из символов символ с наименьшим кодом и поставить его первым в строке матрицы.
Помогите написать программую Дана матрица размером M x N, состоящая из символов. Выбрать в каждой строке символ с наименьшим кодом и...

В каждой строке матрицы выбрать элемент с наименьшим значением
Дана действительная матрица размера N x M, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники).
Hrethgir 04.08.2026
Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа
Maks 03.08.2026
Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям
Maks 03.08.2026
Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru