С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 05.12.2014
Сообщений: 15
1

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

07.12.2014, 09:24. Показов 1815. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан целочисленный массив x размера n. Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и максимальным(если такие имеются).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2014, 09:24
Ответы с готовыми решениями:

Найти те элементы массива, которые находятся между его минимальным и максимальным элементами
Дан линейный массив A, содержащий целые числа. Найти те элементы массива, которые находятся в...

Массив: Напечатать те элементы массива, которые находятся между максимальным и минимальным элементами.
Имеется массив a из n произвольных чисел, среди которых есть положительные, отрицательные и равные...

Извлечь все элементы массива, которые находятся между максимальным и минимальным элементами
Допустим, есть список из 10 элементов. Нужно извлечь те элементы массива, которые находятся между...

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

1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
07.12.2014, 09:54 2
Лучший ответ Сообщение было отмечено Sweet_Records как решение

Решение

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
const n=10;
type mas=array[1..n] of integer;
var a:mas;
    i,j,mini,maxi,min,max:integer;
begin
    randomize;
    writeln('A:');
    for i:=1 to n do
     begin
      a[i]:=random(21);
      write(a[i],' ')
     end; 
    writeln;
    min:=a[1];max:=a[1];mini:=1;maxi:=1;
    for i:=2 to n do
     begin
      if a[i]>max then begin max:=a[i]; maxi:=i end;
      if a[i]<min then begin min:=a[i]; mini:=i end;
     end; 
    writeln('max=a[',maxi,']=',max);
    writeln('min=a[',mini,']=',min);
    if abs(maxi-mini)>2
     then
      begin
       if maxi<mini then
                      begin
                       maxi:=maxi xor mini;
                       mini:=maxi xor mini;
                       maxi:=maxi xor mini
                      end;
       for i:=mini+1 to maxi-2 do
        for j:=mini+1 to maxi-2 do
          if a[j]<=a[j+1]
            then
             begin
              a[j]:=a[j]+a[j+1];
              a[j+1]:=a[j]-a[j+1];
              a[j]:=a[j]-a[j+1]
             end;
       writeln('A'':');
       for i:=1 to n do write(a[i],' ')
      end
     else writeln('сортировка не требуется')
end.
0
07.12.2014, 09:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2014, 09:54
Помогаю со студенческими работами здесь

Напечатать элементы массива, которые стоят между максимальным и минимальным элементами
Необходимо напечатать элементы массива которые стоящят между максимальным и минимальным элементами....

Суммировать те элементы массива, которые расположены между минимальным и максимальным элементом
Здравствуйте. Помогите мой код пожалуйста переделать в списки... Не могу разобраться в них. И ещё...

Массив чисел. Найти числа, которые находятся между первыми максимальным и минимальным
Дан массив целых чисел A={ai}, где i={1,2...n} Напечатать числа, находящиеся между первым...

Переписать только те элементы массива, которые расположены между его максимальным и минимальным элементами
Задать массив А1 помощью генератора случайных чисел только числами, кратными 3. Переписать массив...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru