Как удалить максимальный и минимальный элемент массива

В задаче просят найти максимальный и минимальный элемент массива. Найти их не составило труда, но теперь я не знаю как мне их удалить.
Пробовал присваивать им номер которого нет в массиве, программа выводила ошибку. Присваивал им просто значение 0, но это не удаление. Нужна ваша помощь!

Добавлено через 1 час 53 минуты
Ну что-же, во имя науки и программирования отвечаю на свой вопрос, я додумался как это сделать:
Определив максимальный и минимальный элемент массива присваиваем им последний и предпоследний номера массива и ограничиваем ход цикла на n - 2. Таким образом мы избавились от этих элементов. Надеюсь всем кому надо эта тема поможет.

0

Сообщение от TeSi Таким образом мы избавились от этих элементов

В массиве то элементы остались - размерность массива не зависит от цикла. Нужен Redim для полного искоренения!

0

Сообщение от TeSi Определив максимальный и минимальный элемент массива

А если их несколько?

1

Уважаемый TeSi,
смысл вашей задачи состоит в том, чтобы создать новый массив, который будет содержать все элементы старого массива за исключением максимальных и минимальных элементов старого. Сам алгоритм выглядит примерно так:
1. ищем максимальный элемент
2. ищем минимальный элемент (поиск максимального и минимального элемента может быть совмещён)
3. сравниваем максимальный и минимальный элементы.
4. если они равны, то выводится сообщение: "задача не разрешима"
5. если не равны, то ищется элемент отличный от максимального и минимального
6. если такой элемент не найден, то выводится сообщение: "задача не разрешима"
7. если найден элемент отличный от максимального и минимального, то подсчитывается количество подобных элементов.
8. объявляется новый массив, длина которого равна числу элементов не равных максимальному и минимальному
9. этом массив инициируется (заполняется этими самыми элементами)
10. теперь можно распечатать оба массива (для сравнения)

2

TeSi сам нашел решение, молодец. Только, Обязательно (!) нужно учесть условия от Pro_grammer и ZX Spectrum-128 !!!

задача не разрешима - такого быть не может, это не вселенский парадокс (хотя даже в этом случае решение будет), а простая задачка. Полагаю (и знаю по опыту), многие преподы не примут ответ с формулировкой Задача не разрешима, поэтому, применяя принцып: отрицательный результат - тоже результат, + здравый смысм получаем (в остальном претензий к wer1 нет) более наглядный вариант и без некорректной фразы = :

1. Как и решил TeSi - надодятся минимальный и максимальный элементы (судя по первому посту он знает как это делается).

2. Прежде чем перемещать минимальный и максимальный элементы в конец массива, нужно ввести переменную (например) k, занося в нее сумму минимальных и максимальных элементов на этапе проверки массива (если таковые, конечно, будут, но предусмотреть это нужно обязательно, как правильно заметил ZX Spectrum-128).
Это можно сделать и отдельным цыклом, просто пробежавшись по массиву сравнивая элементы с максимальным и минимальным, параллельно перенося min и max элементы в конец массива. Если организовать циклс от конца к началу, то это сделать очень просто, меняя элементы местами.

3. Вычисляем k = n - k (чтобы не вводить еще одну переменную), теперь k = количество элементов результирующего массива.

4. k - в априори, не может быть больше n (числа элементов исходного массива), отсюда вывод результата

Если(1) k = 0, то

Если(2) min = max, то

Ответ: Исходный Массив состоит из одинаковых элементов

Иначе(2)

Ответ: Исходный Массив состоит только из минимальных и максимальных элементов

Конец(2)
Ответ+: Массив-результат не имеет значений (пуст)

Иначе(1)

Redim, и перенос элементов из исходного массива в новый от 1 до k (как и заметил Pro_grammer)
Ответ: Вывод нового массива, определенного оператором Redim

Конец(1)

0

TeSi, полную формулировку задачи напиши, дословно, как тебе её дали.

Сообщение от markiza-inc задача не разрешима - такого быть не может

Может. Всё банально, в QB\QBasic нет "массивов без элементов". REDIM может сделать размер массива
равным одному элементу, без элементов он его сделать не может. И любой человек который скажет,
что это корректно(иметь процедуру удаления элемента и не иметь возможности удалить все элементы)
- будет лишь пудрить людям мозги и нести чушь. По факту эта задача на списки, но зачем то её выдают
людям на QBasic-e в формате массива и с кастрированным условием. Это тупо подмена понятий.

Более того в условии не определено, может ли быть ситуация когда минимальных и максимальных
несколько, а также ситуация их равенства. Соотв. этот вопрос падает на программиста.
А критерий данной оценки - неизвестен. Соотв. есть необходимость предусмотреть ВСЕ возможные варианты.
Что человек и сделал. И да, по увиденному есть лишь стойкое ощущение, что о всех этих
подробностях составитель задачи в целом и не догадывается, т.е. о том, что мин максов одинаковых
может быть несколько, о том, что массив - это не список и его как минимум придётся эмулировать.

Поэтому "задача не разрешима" - более чем корректно, это сходно с "деление на ноль", сам бы конечно
ещё дописал почему она не разрешима, мол причина в исходных данных. Большего составителю задачи
знать не следует, он и сам хорош на аргументацию.

1

Сообщение от TeSi Ну что-же, во имя науки и программирования отвечаю на свой вопрос, я додумался как это сделать: Определив максимальный и минимальный элемент массива присваиваем им последний и предпоследний номера массива и ограничиваем ход цикла на n - 2. Таким образом мы избавились от этих элементов. Надеюсь всем кому надо эта тема поможет.

Что за бред? Что за левые решения тут предлагаются? А просто сдвинуть элементы не судьба или до этого мозги не доходят у ВСЕХ, кто тут решение предложил?
Задача легко решается без всяких новых массивов и передвиганий элементов в конец. Просто сдвигаем элементы на место исключённых и сокращаем длину массива. Нужна программа или сами сообразите?

0