Дана матрица. Экзамен

@Leotez · Регистрация: 07.10.2010

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

Ребят на экзамене сижу, решите побыстрей.. Пишите номер телефона, с меня палтос)
Дана матрица n*m. Найти наибольший и наименьший элемент в каждой строке. Отсортировать эти максимумы по убыванию в матрице, а минимумы по возрастанию. Указать какое количество максимальных и минимальных элементов находиться в каждом столбце.

@AF · 29.10.2010, 15:46

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

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
var
  a: array[1..1000, 1..1000] of integer;
  swap, n, m, i, j, kn, kx: integer;
  amin, amax, nmax, nmin: array[1..1000] of integer;
  pr: boolean;
  
begin
  write('n=');
  readln(n);
  write('m=');
  readln(m);
  for i := 1 to n
  do
    for j := 1 to m
    do
      read(a[i, j]);
  for i := 1 to n
  do
    amin[i] := a[i, 1];
  for i := 1 to n
  do
    amax[i] := a[i, 1];
{  for j := 1 to m
  do
    nmax[j] := 0;
  for j := 1 to m
  do
    nmin[j] := 0;
  nmax[1] := 1;
  nmin[1] := 1; }
  
 
  {Çàäàåì ìàññèâû ìèíèìàëüíûõ è ìàêñèìàëüíûõ ýë-òîâ ñòðîê}
  for i := 1 to n
  do 
    begin
      for j := 1 to m
      do
        begin
          kx := 1;
          if a[i, j] > amax[i]
          then
            begin
              amax[i] := a[i,j];
              nmax[j] := nmax[j] + 1;
              if kx > 0
              then
                nmax[kx] := nmax[kx] - 1;
              kx := j
            end;
          kn := 1;
          if a[i, j] < amin[i]
          then
            begin
              amin[i] := a[i,j];
              nmin[j] := nmin[j] + 1;
              if kn > 0
              then
                nmin[kn] := nmin[kn] - 1;
              kn := j
            end
        end
      end;
      
  {Ñîðòèðóåì ìàññèâ ìàêñèìàëüíûõ ïî óáûâàíèþ}
  i := 1;
  repeat
    pr := false;
    i := i + 1;
    if amax[i] > amax[i - 1]
    then
      begin
        swap := amax[i];
        amax[i] := amax[i - 1];
        amax[i - 1] := swap;
        pr := true
      end;
    if i = n
    then
      i := 1;  
  until pr = false;
 
  {Ñîðòèðóåì ìàññèâ ìèíèìàëüíûõ ïî âîçðàñòàíèþ}
  i := 1;
  repeat
    pr := false;
    i := i + 1;
    if amin[i] < amin[i - 1]
    then
      begin
        swap := amin[i];
        amin[i] := amin[i - 1];
        amin[i - 1] := swap;
        pr := true
      end;
    if i = n
    then
      i := 1;  
  until pr = false;
 
  writeln;
  writeln('max:');
  for i := 1 to n
  do 
    write(amax[i], ' ');
    
  writeln;
  writeln('min:');
  for i := 1 to n
  do 
    write(amin[i], ' ');
 
  {writeln;
  writeln('Number of max elements:');
  for j := 1 to m
  do
    write(nmax[j], ' ');
  writeln('Number of max elements:');
  for j := 1 to m
  do
    write(nmin[j], ' ');
}        
  readln;
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@Leotez 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 12

	Дана матрица. Экзамен 29.10.2010, 15:17. Показов 1170. Ответов 1 Метки нет (Все метки) Ребят на экзамене сижу, решите побыстрей.. Пишите номер телефона, с меня палтос) Дана матрица n*m. Найти наибольший и наименьший элемент в каждой строке. Отсортировать эти максимумы по убыванию в матрице, а минимумы по возрастанию. Указать какое количество максимальных и минимальных элементов находиться в каждом столбце. 0

Дана матрица. Экзамен

Решение