Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
ctlhu
0 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 14
#1

В данном двумерном массиве упорядочить элементы, расположенные между минимальным и максимальным элементами по убыванию

18.03.2018, 10:27. Просмотров 789. Ответов 4
Метки нет (Все метки)

В данном двумирному массиве упорядочить элементы, расположенные между минимальным и максимальным элементами по убыванию. Методом сортировки вставками
Буду очень благодарен.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2018, 10:27
Ответы с готовыми решениями:

Обнулить элементы массива, расположенные между его минимальным и максимальным элементами
3) Дан массив размера N.Обнулить элементы массива, расположенные между его...

Удалить из массива все положительные элементы, расположенные между максимальным и минимальным
удалить из массива все положительные элементы, расположенные между максимальным...

В одномерном массиве вычислить разницу между максимальным и минимальным элементами
Дан массив из 15 целых чисел из диапазона [-10, 10). Вычислите в нем разницу...

Одномерный массив. Переставить в обратном порядке элементы массива, расположенные между максимальным и минимальным
дан одномерный массив.Переставить в обратном порядке элементы массива,...

Обнулить все элементы между минимальным и максимальным элементами массива
обнулить все элементы между минимальным и максимальным элементами массива....

4
AcademeG23
0 / 0 / 2
Регистрация: 31.10.2017
Сообщений: 3
18.03.2018, 12:36 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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;
    m,n,i,j,k,x,p : integer;
begin
 write('Количество строк m= ');
 readln(m);
 write('Количество столбцов n= ');
 readln(n);
 
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
    writeln('Введите ',i,' ',j,' элемент массива: '); readln(p);
     a[i,j]:=p;
    end;  
   writeln;
  end;
  
writeln('Исходная матрица: ');
   for i:=1 to m do
     begin
      for j:=1 to n do
        write(a[i,j],' ');
writeln;
      end;
  
 for i:=1 to m do
  for j:=1 to n-1 do
   for k:=j+1 to n do
    if a[i,j]<a[i,k] then
     begin
      x:=a[i,j];
      a[i,j]:=a[i,k];
      a[i,k]:=x;
     end;   
     
 writeln('Отсортированная матрица: ');
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(a[i,j],' ');
   writeln;
  end;
 readln
end.
0
ctlhu
0 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 14
20.03.2018, 22:18  [ТС] #3
А можно вместо сортировки обмена написать сортировку вставки??
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3861 / 2847 / 3632
Регистрация: 05.06.2014
Сообщений: 13,960
21.03.2018, 12:15 #4
Цитата Сообщение от ctlhu Посмотреть сообщение
сортировку вставки??
Тут пример есть:
Сортировки
0
Puporev
Модератор
54352 / 41944 / 28977
Регистрация: 18.05.2008
Сообщений: 98,798
21.03.2018, 15:56 #5
Здесь вообще не
Цитата Сообщение от ctlhu Посмотреть сообщение
упорядочить элементы, расположенные между минимальным и максимальным элементами
а сортировка каждой строки.

Добавлено через 38 минут
А сортировать вставками по условию задачи так.
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
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,i1,ip,min,max,x:integer;
begin
repeat
randomize;
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
k:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
    inc(k);
    if i*j=1 then
     begin
      min:=a[i,j];
      max:=a[i,j];
      i1:=k;
      ip:=k;
     end
    else if a[i,j]<min then
     begin
      min:=a[i,j];
      i1:=k;
     end
    else if a[i,j]>max then
     begin
      max:=a[i,j];
      ip:=k;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент a[',(i1-1)div n+1,',',(i1-1)mod n+1,']=',min,' его номер по порядку=',i1);
writeln('Максимальный элемент a[',(ip-1)div n+1,',',(ip-1)mod n +1,']=',max,' его номер по порядку=',ip);
if ip<i1 then
 begin
  x:=i1;
  i1:=ip;
  ip:=x;
 end;
if ip-i1<3 then writeln('Между минимальным и максимальным нет элементов для сортировки')
else
 begin
  for i:=i1+2 to ip-1 do
   begin
    x:=a[(i-1)div n+1,(i-1)mod n+1];
    j:=i-1;
    while (j>=i1+1) and (A[(j-1)div n+1,(j-1)mod n+1]<x) do
     begin
      a[j div n+1,j mod n+1]:=A[(j-1)div n+1,(j-1)mod n+1];
      j:=j-1;
    end;
   a[j div n+1,j mod n+1]:=x;
  end;
writeln('Отсортированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
end.
0
21.03.2018, 15:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2018, 15:56

Вывести элементы массива находящиеся между минимальным и максимальным элементами
Вывести элементы массива находящиеся между минимальным и максимальным эл-ами....

Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы массива Х вычисляются по формуле Xi=((-1)^i)*((i^2)-3*i), где i=1,2,...,10.
Удалить элементы расположенные между максимальным и минимальным элементами...

Удалить из одномерного массива все элементы расположенные между максимальным и минимальным элементами массива
Удалить из одномерного массива все элементы расположенные между максимальным и...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru