Одномерный массив., поиск максимального элемента |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Одномерный массив., поиск максимального элемента |
Allise1 |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 12 Пол: Женский Репутация: 0 |
кто-нибудь может помочь?очень нужно!
Дан массив размера N. Найти максимальный из его элементов, не являющихся ни локальным максимумом, ни локальным минимумом(локальный минимум-это элемент, который меньше любого из своих соседей).Если таких элементов в массиве нет, вывести об этом сообщение. упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений. для отладки программы числа последовательности сформировать с помощью генератора случайных чисел. |
Krjuger |
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
Помочь можем, но именно помочь, а не сделать за вас! Покажите свои идеи и наработки,тогда, если что неверно, поправим и доведем до ума.
|
Гость |
Сообщение
#3
|
Гость |
Помочь можем, но именно помочь, а не сделать за вас! Покажите свои идеи и наработки,тогда, если что неверно, поправим и доведем до ума. var a: array [1..100] of integer; i,max,N: integer; begin randomize; write('N (<=100)= '); readln(N); for i:= 1 to n do a[i]:=-25+random(101); writeln('Initial array: '); for i:=1 to N do write(a[i]:4); writeln; max:=-80; for i:=2 to N-1 do if (a[i]>max) and not((a[i]>a[i+1]) and (a[i]>a[i-1])) and not((a[i]<a[i+1]) and (a[i]<a[i-1])) then max:=a[i]; writeln('Result: '); if max=-80 then writeln('No such elements') else writeln('Max= ',max); readln end. но эта только первая часть задания, как вторую сделать вообще понятия не имею( нужна сортировка массива, чтоб сравнить соседние элементы и при выполнении условия поменять их местами |
Текстовая версия | 29.09.2024 5:37 |