Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его мин и макс элементами

@LegolasSO · Регистрация: 05.11.2018

Студворк — интернет-сервис помощи студентам

Приветствую
Помогите с задачей пожалуйста

Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его мин и макс элементами.

Нужно для отчета, сам хз как это сделать. В программе должен использоваться цикл far
На форуме находил данную тему, но код оттуда слишком большой и сложный, он в любом случае должен выглядеть иначе. Каждый, кто имеет представление как это сделать, помогите пожалуйста.
ЗАРАНЕЕ СПАСИБО!!!

ps. вот та тема

Кликните здесь для просмотра всего текста

https://www.cyberforum.ru/turbo-pascal/thread1152005.html

Для примера приведу похожую задачу и код к ней

Дан целочисленный массив A размера 10. Вывести номер последнего из тех его элементов A[i], которые удовлетворяют двойному неравенству: (A[1]<A[i]<A[10]). Если таких элементов нет, то вывести 0.

Pascal

Program arr1;
uses crt;
var
a: array[1..10] of integer;
i, k: integer;
begin
writeln('Массив A =' );
for i := 1 to 10 do
begin
a[i] := random(10);//рандомно задаем массив
write(a[i],' ');//выводим все эллементы массива через пробел
end;
for i := 1 to 10 do
if (a[1] < a[i]) and (a[i] < a[10]) then k := i;
writeln();
writeln('порядковый номер числа удовлетворяющего условию', ' ',k);
end.

@ZX Spectrum-128 · 21.11.2018, 12:56

Дан массив размера 10.Переставить в обратном порядке элементы массива , рассположенные между его минимальным и максимальным элементами.

Добавлено через 2 минуты

Сообщение от LegolasSO

код оттуда слишком большой и сложный

Да ну.

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	21.11.2018, 12:56	2
	Дан массив размера 10.Переставить в обратном порядке элементы массива , рассположенные между его минимальным и максимальным элементами. Добавлено через 2 минуты Сообщение от LegolasSO код оттуда слишком большой и сложный Да ну. 0

Опции темы