Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.09.2013, 00:53   #1
vralayala
Пользователь
 
Регистрация: 23.05.2013
Сообщений: 16
Восклицание МАССИВЫ.ПЕРЕСТАНОВКА

Дан массив из 20-ти элементов.Поменять местами элементы массива от max и min .Заранее благодарю.Никак не врублюсь в задачу.
vralayala вне форума Ответить с цитированием
Старый 20.09.2013, 01:42   #2
vralayala
Пользователь
 
Регистрация: 23.05.2013
Сообщений: 16
По умолчанию

помогиите,пожалуййста!!
vralayala вне форума Ответить с цитированием
Старый 20.09.2013, 08:46   #3
Ezhik Kihze
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 639
По умолчанию

Проблема в чем? Поиск минимума и максимума в массиве элементарная и вездерасписанная задача...
ICQ: 677936656 Gmail: ekEmbed@gmail.com
Ezhik Kihze вне форума Ответить с цитированием
Старый 20.09.2013, 09:15   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

"поменять местами" - это как - "зеркально (первый с последним, второй с предпоследним и т.д.)" ?
и что означает фраза "от max и min "

например, пусть дан массив:
3 1 2 3 5 7 8 9 4 3 2

максимум и минимум я выделил цветом.
Какие элементы нужно поменять?
и что должно получиться после обмена?

а в остальном согласен с Ezhik Kihze...

Последний раз редактировалось Serge_Bliznykov; 20.09.2013 в 09:18.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 20.09.2013, 09:43   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Видимо что-то типа:
Код:
imax:=1; imin:=1;
for i:=1 to 20 do 
 if a[i]>a[imax] then imax:=i else
  if a[i]<a[imin] then imin:=i 
;
if imin>imax then begin i:=imin;imin:=imax;imax:=i;end;
for i:=1 to imin-1 do write(a[i]:5);
for i:=imax downto imin do write(a[i]:5);
for i:=imax+1 to 20 do write(a[i]:5);
readn;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перестановка @ksana C# (си шарп) 0 09.07.2013 11:18
Перестановка элементов. xEk Помощь студентам 1 31.05.2012 19:43
Две задачи на массивы (формирование нового массива и перестановка в массиве) (pascal abc) antony sky Паскаль, Turbo Pascal, PascalABC.NET 8 09.05.2011 17:54
Перестановка столбцов bagfinder Паскаль, Turbo Pascal, PascalABC.NET 1 25.06.2009 19:28
Перестановка Roman Помощь студентам 3 29.04.2007 05:37