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

Продублировать строку матрицы,содержащую ее максимальный элемент

16.10.2013, 16:00. Показов 1395. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана матрица. Продублировать строку матрицы,содержащую ее максимальный элемент.

Помогите, пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.10.2013, 16:00
Ответы с готовыми решениями:

Продублировать строку матрицы, содержащую её максимальный элемент
Дана матрица M*N. Продублировать строку матрицы, содержащую её максимальный элемент. #include <stdio.h> #include...

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

Поменять местами строку матрицы, содержащую максимальный элемент, со строкой, содержащей минимальный
Суть задания , поменять местами строку, содержащую максимальный элемент, со строкой, содержащей минимальный элемент, если оба таких...

1
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
16.10.2013, 16:16
Лучший ответ Сообщение было отмечено Татиана как решение

Решение

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
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
const nmax=20;
var a:array[1..nmax+1,1..nmax] of integer;
    m,n,i,j,imx:byte;
    mx:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
    if(i=1)and(j=1)then
     begin
      mx:=a[1,1];
      imx:=1;
     end
    else if a[i,j]>mx then
     begin
      mx:=a[i,j];
      imx:=i
     end;
   end;
  writeln;
 end;
writeln('Максимальный элемент=',mx,' в строке ',imx);
m:=m+1;
for i:=n downto imx+1 do
for j:=1 to n do
a[i,j]:=a[i-1,j];
for j:=1 to n do
a[imx,j]:=a[imx+1,j];
writeln('Дублирование строки ',imx);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.10.2013, 16:16
Помогаю со студенческими работами здесь

Найти максимальный элемент и строку, содержащую этот элемент, поменять с 1ой строкой
дана матрица размерности N на M. найти максимальный элемент и строку, содержащую этот элемент, поменять с 1ой строкой.

В прямоугольной таблице указать строку, содержащую максимальный отрицательный чётный элемент
В прямоугольной таблице указать строку, содержащую максимальный отрицательный чётный элемент. А именно как создать процедуру которая ищет...

Поменять строку матрицы, содержащую заданный элемент, с последней строкой матрицы
Дана вещественная матрица размером 7x4. Найти наименьший элемент матрицы. Поменять строку, содержащую этот элемент, с последней строкой...

Удалить строку, содержащую минимальный элемент матрицы
1. Составить блок-схему и программу. Дана квадратная матрица порядка М. Обнулить элементы матрицы, лежащие одновременно ниже главной...

Найти строку, содержащую минимальный элемент матрицы
Дана матрица А(5,3) 1. Найти строку, содержащую минимальный элемент матрицы 2. Найденную строку поменять местами с 4-ой строкой. ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru