Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 17.02.2016
Сообщений: 9
1

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

21.02.2016, 20:05. Показов 931. Ответов 1
Метки нет (Все метки)

Дан одномерный массив, переставить в обратном порядке элементы массива, расположенные между минимальным и максимальным элементами.(Delphi)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2016, 20:05
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5961 / 3549 / 2493
Регистрация: 22.11.2013
Сообщений: 10,059
Записей в блоге: 1
21.02.2016, 21:09 2
Pascal
1
2
3
4
5
6
7
8
  mn:=Low(a); for i:=mn+1 to High(a) do if a[mn]>a[i] then mn:=i;
  mx:=Low(a); for i:=mx+1 to High(a) do if a[mx]<a[i] then mx:=i;
  if mx<mn then begin
    i:=mx; mx:=mn; mn:=i;
  end;
  while mn<mx do begin
    i:=a[mn]; a[mn]:=a[mx]; a[mx]:=i; Inc(mn); Dec(mx);
  end;
Добавлено через 3 минуты
или если
Pascal
1
2
3
4
5
procedure Swp(var a, b: Integer);
var t: Integer;
begin
  t:=a; a:=b; b:=t;
end;
то чуть короче:
Pascal
1
2
3
4
  mn:=Low(a); for i:=mn+1 to High(a) do if a[mn]>a[i] then mn:=i;
  mx:=Low(a); for i:=mx+1 to High(a) do if a[mx]<a[i] then mx:=i;
  if mx<mn then Swp(mn,mx);
  while mn<mx do Swp(a[mn],a[mx]);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2016, 21:09

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

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

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

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


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

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

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