Поменять местами max и min в матрице

@kolobayka · Регистрация: 13.03.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте. Задача состоит в том, что есть матрица nxn, нужно найти максимальный и минимальный элемент, затем переставить столбцы и строки так, что бы max и min поменялись местами. Первое сделал, а как второе - не придумаю(

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
var a:array[1..100,1..100] of integer;
var i,j,n,max,min,p:integer;
begin
write('Введите размер матрицы',' ');
read(n);
 
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
 
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
 
max:=0;
min:=20;
for i:=1 to n 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,' ','min=',min);
writeln;
 
for i:=1 to n do
for j:=i+1 to n do
begin
p:=max;
max:=min;
min:=p;
end;
writeln;
 
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.

@ValentinNemo · 06.07.2019, 14:52

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
51
52
53
54
55
56
57
58
59
60
61
62
program ddd;
var
  a: array[1..100,1..100] of integer;  // Переменная для хранения двумерного массива.
  i,j: integer; //  Вспомогательные переменные для организации циклов.
  n: integer; //  Переменная для хранения значения размерности матрицы.
  p: integer; //  Вспомогательная переменная для обмена значениями максимального и минимального элементов.
  max,min: integer; // Переменные для хранения максимального и минимального значения элементов массива.
  IndRowMax, IndColMax: integer; // Переменные для хранения индексов строк и столбцов элемента с максимальным значением.
  IndRowMin, IndColMin: integer; // Переменные для хранения индексов строк и столбцов элемента с минимальным значением.
begin
  randomize;
  write('Введите размер матрицы: ');
  readln(n);
 
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(20);  // Заполнение массива случайными числами.
  Writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);  //  Вывод элементов массива на экран
      writeln;
    end;
  writeln;
 
  max:=0;
  min:=20;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if a[i,j] > max then  //  Поиск элемента с максимальным значением.
          begin
            max:=a[i,j];
            IndRowMax:= i;    //  Индексы строк и столбцов элемента с максимальным значением.
            IndColMax:= j;
          end;
 
        if a[i,j] < min then  //  Поиск элемента с минимальным значением.
          begin
            min:=a[i,j];
            IndRowMin:= i;    //  Индексы строк и столбцов элемента с минимальным значением.
            IndColMin:= j;
          end;
  end;
  writeln('max = ',max,'    [',IndRowMax,',',IndColMax,']');
  writeln('min = ',min,'    [',IndRowMin,',',IndColMin,']');
  writeln;
 
  p:=a[IndRowMax,IndColMax] ;    // Обмен значениями между элементами с максимальным и минимальным значением.
  a[IndRowMax,IndColMax]:=a[IndRowMin,IndColMin];
  a[IndRowMin,IndColMin]:=p;
  writeln;
  Writeln('Измененная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);    // Вывод элементов массива на экран.
      writeln;
    end;
  Readln;
end.

@kolobayka · 06.07.2019, 15:14 **[ТС]**

Спасибо, теперь понял. Надо было всего лишь указать адрес max и min

Новые блоги и статьи Все статьи Все блоги /
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .

@kolobayka 0 / 0 / 0 Регистрация: 13.03.2018 Сообщений: 14
	06.07.2019, 15:14 [ТС]
	Спасибо, теперь понял. Надо было всего лишь указать адрес max и min 0

Опции темы

Поменять местами max и min в матрице

Решение