|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.11.2008, 22:46 | #1 |
Регистрация: 17.11.2008
Сообщений: 2
|
как отсортировать массив под данный отрезок и как минимум и максимум из него найти
Даны числа a, b (0 < a < b) и набор из десяти элементов. Найти минимальный и максимальный из элементов, содержащихся в интервале (a, b). Если требуемые элементы отсутствуют, то вывести –1.
Program minmax; Uses crt; Const n=10; Type mas=array [1..n] of integer; Var c:mas; i, a, b, z: integer; procedure npoM; begin writeln('BBeguTE a u b'); readln(a,b); end; procedure BBog; begin writeln('BBegute 10 4uceJI'); for i:=1 to n do readln(c[i]); end; procedure BbIBog; begin for i:=1 to n do write(c[i]:5); writeln; end; begin clrscr; npoM; BBog; BbIBog; readln; end. Не знаю как отсортировать массив под данный отрезок и как минимум и максимум из него найти. помогите пожалуйста чайнику |
20.11.2008, 08:58 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Попробуй так(с минимумом аналогично и можно даже все сделать в одном цикле)
Код:
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите отсортировать массив методом бинарных вставок | zhorzh2407 | Помощь студентам | 1 | 19.11.2008 17:19 |
Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные | ProWinD | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 16.06.2008 20:12 |
Как отсортировать НД по Lookup-полю? | Schumacher | БД в Delphi | 4 | 21.06.2007 14:07 |
Как отсортировать | Uhryap | Microsoft Office Word | 2 | 24.02.2007 16:58 |
в каком виде хранится иконка в Exe-файле? как её из него вытащить/заменить? | Holly1444 | Общие вопросы Delphi | 0 | 18.11.2006 13:56 |