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

@Aragon_TMB · Регистрация: 12.03.2010

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

Суть задачи такова: дана матрица 5х10, нужно в каждой строке поменять местами минимальное и максимальное значение. Теперь конкретнее. Вот мое решение до последнего цикла:

Delphi
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
type massive=array [1..5,1..10] of integer;
var a:massive;
    i,j,max,min,S,i_max,i_min,j_max,j_min:integer;
 
begin
 randomize;
 
 min:=1;
  For i:=1 to 5 do
  For j:=1 to 10 do
  a[i,j]:=random(100);
   For i:=1 to 5 do
    Begin
      For j:=1 to 10 do
        write (a[i,j]:4);
        writeln;
        end;
   For i:=1 to 5 do
    Begin
      max:=1;
      For j:=1 to 10 do
      If (a[i,j]>max) then
      begin
      max:=a[i,j];
      i_max:=i;
      j_max:=j
 
      end;
      writeln ('maximal=',max,'  ','stroka=',i_max,'  ','stolbec=',j_max);
      end;
      writeln;
    For i:=1 to 5 do
    Begin
      min:=a[1,j];
      For j:=1 to 10 do
    If (a[i,j]<min) then
    Begin
      min:=a[i,j];
      i_min:=i;
      j_min:=j
 
      end;
      writeln('minimal=',min,'  ','stroka=',i_min,'  ','stolbec=',j_min);
      end;
      writeln;

До этого места выводится все исправно: исходная матрица, пять min и max значений. Далее начинается самое веселое. По идее, чтобы поменять их местами, нужно вводить новую переменную:

Delphi
1
2
3
   S:=a[i_min,j_min];
            a[i_min,j_min]:=a[i_max,j_max];
            a[i_max,j_max]:=S

Но, как я не издевался над циклом, который должен вывести измененную матрицу и этими присвоениями - ничего не получалось. Или выводит столбец из непонятно откуда взявшихся значений, или копию исходной матрицы.
Уже просто не знаю, что делать. Возможно, где-то накосячил в задаче, но, повторюсь, все значения он выводит исправно.

@yanyk1n · 12.03.2010, 14: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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
const n=5; m=10;
var a:array[1..n,1..m]of integer;
i,j,min,max,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  min:=1;
  max:=2;
  for j:=1 to m do if a[i,j]>a[i,max] then max:=j else if a[i,j]<a[i,min] then min:=j;
 writeln('Строка ',i);
 writeln('MAX = A[',i,',',max,']=',a[i,max]);
 writeln('MIN = A[',i,',',min,']=',a[i,min]);
  b:=a[i,min]; 
  a[i,min]:=a[i,max];
  a[i,max]:=b;
 end;
 
 writeln('Преобразовнная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:4);
  writeln;
 end;
end.

@Puporev · 12.03.2010, 14:09

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
uses crt;
var a:array [1..5,1..10] of integer;
    i,j,S,jmax,jmin:integer;
begin
randomize;
writeln('Ishodnaya matrica:');
For i:=1 to 5 do
 begin
  For j:=1 to 10 do
   begin
    a[i,j]:=random(100);
    write (a[i,j]:4);
   end;
  writeln;
 end;
For i:=1 to 5 do
 Begin
   jmax:=1;jmin:=1;
   For j:=1 to 10 do
    begin
     If a[i,j]>a[i,jmax] then jmax:=j;
     If a[i,j]<a[i,jmin] then jmin:=j;
    end;
   s:=a[i,jmin];
   a[i,jmin]:=a[i,jmax];
   a[i,jmax]:=s;
 end;
writeln;
writeln('Obmen max i min v strokah:');
for i:=1 to 5 do
 begin
  for j:=1 to 10 do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

Насчет вывода значений в условии ничего не написано.

Добавлено через 25 секунд
k1ry4,

@Aragon_TMB · 12.03.2010, 14:13 **[ТС]**

Огромное спасибо!!!!

И, если, не сложно, в чем моя ошибка была? Просто, я уже запутался в этой задаче))
P.S Ну, а вывод значений - для наглядности. Хуже не станет

@Mawrat · 12.03.2010, 14:32

Ну и я тоже решение опубликую.

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
type massive=array [1..5,1..10] of integer;
var a:massive;
    i,j,S,j_max,j_min:integer;
begin
  (*Инициализация исходного массива.*)
  (*Пускай минимальным элементом будет число = 0, а максимальным - число = 100.*)
  randomize;
  For i:=1 to 5 do begin
    (*Записываем в строку элементы, отличные от минимального и максимального.*)
    For j:=1 to 10 do a[i,j]:=1 + random(99); (*1..99*)
    (*Записываем в строку минимальный и максимальный элементы на случайную позицию.*)
    j := 1 + Random(10); (*1..10*)
    a[i, j] := 0;
    j := 1 + Random(10); (*1..10*)
    a[i, j] := 100;
  end;
 
  (*Распечатка исходного массива.*)
  Writeln('Исходный массив:');
  For i := 1 to 5 do begin
    For j:= 1 to 10 do Write(a[i,j]:4);
    Writeln;
  end;
 
  (*Ищем в каждой строке координаты минимума и максимума и выполняем обмены.*)
   For i:=1 to 5 do begin
     j_min := 1;
     j_max := 1;
     For j := 1 to 10 do begin
       If (a[i,j] > a[i,j_max]) then j_max := j;
       If (a[i,j] < a[i,j_min]) then j_min := j;
     end;
     S := a[i,j_min];
     a[i,j_min] := a[i,j_max];
     a[i,j_max] := S;
   end;
 
  (*Распечатка результирующего массива.*)
  Writeln('Результирующий массив:');
  For i := 1 to 5 do begin
    For j:= 1 to 10 do Write(a[i,j]:4);
    Writeln;
  end;
 
  Readln;
 
  (*Задача решена.*)
end.

Мда... хотя оно почти полностью совпадает с решением от уважаемого Puporev-а.

Пускай, тогда, польза от моего кода будет в том, как "высвечены" мин. и макс. элементы в исходном массиве (это 0 и 100).

08.04.2010, 17:56

молодцы ребята!!! а как поменять максимальный и минимальный соостветственоо с первым элементом строки и последним?

@Puporev · 08.04.2010, 18:12

Pascal
1
2
3
s:=a[i,jmax];
a[i,jmax]:=a[i,1];
a[i,1]:=s;

Pascal
1
2
3
s:=a[i,jmax];
a[i,jmax]:=a[i,10];
a[i,10]:=s;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Aragon_TMB 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 3
	12.03.2010, 14:13 [ТС]
	Огромное спасибо!!!! И, если, не сложно, в чем моя ошибка была? Просто, я уже запутался в этой задаче)) P.S Ну, а вывод значений - для наглядности. Хуже не станет 0

Марихуанна
	08.04.2010, 17:56
	молодцы ребята!!! а как поменять максимальный и минимальный соостветственоо с первым элементом строки и последним?