Одномерные массивы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Одномерные массивы |
kess |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 43 Пол: Женский Репутация: 0 |
Дан массив действительных чисел. Среди них есть равные. Найти его первый максимальный элемент и заменить его нулём.
Сообщение отредактировано: kess - |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
А причем тут рекурсивные функции ? Идешь по массиву, попутно находя номер максимального элемента, после цикла обнуляешь элемент с этим номером ...
Можно это конечно и через рекурсию сделать ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Гость |
Сообщение
#3
|
|||
Гость |
Heelp
Сообщение отредактировано: klem4 - |
|||
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Я задал вопрос, неужели на него так сложно ответить ? Алгоритм собственно не сложный я тебе его на словах тоже написал ... в чем проблема-то ?!
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
kess |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 43 Пол: Женский Репутация: 0 |
|
klem4 |
Сообщение
#6
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
max_n := 1; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
kess |
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 43 Пол: Женский Репутация: 0 |
как в итоге вывести оба массива?? изначальный и полученный?
|
Текстовая версия | 13.05.2024 16:58 |