Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
sanya2287
2 / 2 / 1
Регистрация: 16.10.2012
Сообщений: 33
#1

Переставить в обратном порядке элементы массива между минимальным и максимальным - Turbo Pascal

31.10.2012, 23:11. Просмотров 560. Ответов 1
Метки нет (Все метки)

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

Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами
4. Дан массив размера 10. Переставить в обратном порядке элементы массива,...

Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами
заполнить массив 10 элементами c помощью генератора случайных чисел,переставить...

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

Элементы массива, находящиеся между максимальным и минимальным элементами, отсортировать в порядке убывания
Задан массив А(N). Элементы массива, находящиеся между максимальным и...

Переставить элементы, расположенные между максимальным и минимальным
6. Составить и выполнить программу, которая переставляет элементы,...

Дан массив размера 10 Переставить в обратном порядке элементы массива, расположенные между его мин. и макс. значениями
Здравствуйте, помогите пожалуйста.:resent: Задача: Дан массив размера 10...

1
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
31.10.2012, 23:24 #2
Лучший ответ Сообщение было отмечено sanya2287 как решение

Решение

Я вам приведу неполный код, вашей же задачей будет его немного дополнить.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
max:=a[1];min:=a[1];i_max:=1;i_min:=1;
for i:=1 to n do begin
    if a[i] > max then begin
       max:=a[i];
       i_max:=i;
    end;
    if a[i] < min then begin
       min:=a[i];
       i_min:=i;
    end;
end;
{ делайте проверку на то, чтобы максимальный не стоял перед минимальным. Если же он стоит перед ним, то перестав те их местами }
 
  k1 := i_min + 1;
  k2 := i_max - 1;
  for i := k1 to (k1 + k2) div 2 do
  begin
    tmp := a[i];
    a[i] := a[k1 + k2 - i];
    a[k1 + k2 - i] := tmp;
  end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2012, 23:24
Привет! Вот еще темы с решениями:

Переставить в обратном порядке элементы расположенные между 2 и 10
Дан одномерный массив из 15 элементов. переставить в обратном порядке элементы...

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

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

Переставить в обратном порядке элементы массива
Дан массив размера N. Переставить в обратном порядке элементы массива,...


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

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

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