Помощь - Поиск - Пользователи - Календарь
Полная версия: Одномерные массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kess
Дан массив действительных чисел. Среди них есть равные. Найти его первый максимальный элемент и заменить его нулём.
klem4
А причем тут рекурсивные функции ? Идешь по массиву, попутно находя номер максимального элемента, после цикла обнуляешь элемент с этим номером ...

Можно это конечно и через рекурсию сделать ...
Гость
Heelp

 ! 
Твой флуд приведет исключительно к отправлению тебя-же в премодерацию

klem4
Я задал вопрос, неужели на него так сложно ответить ? Алгоритм собственно не сложный я тебе его на словах тоже написал ... в чем проблема-то ?!
kess
Цитата(klem4 @ 17.04.2007 21:04) *

Я задал вопрос, неужели на него так сложно ответить ? Алгоритм собственно не сложный я тебе его на словах тоже написал ... в чем проблема-то ?!

с массивами глухо ((((
klem4
max_n := 1;
for i := 2 to n do
if X[i] > X[max_n] then max_n := i;
X[max_n] := 0;
kess
как в итоге вывести оба массива?? изначальный и полученный?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.