Не могу понять

[Игорь Акопян]

EgorX,
Как я понимаю "Найти наибольший и наименьший из номеров ее членов, попавших в заданный интервал", означает что надо сохранить индексы элементов массива, значения которого находятся в заданном интервале.
Т.е. пройти до первого элемента попадающего в диапазон, запомнить MIN. Потом пройти от него до конца запоминая индекс элемента, попадающего в диапазон. всё

[Колядин Максим]

EgorX,
Как я понимаю "Найти наибольший и наименьший из номеров ее членов, попавших в заданный интервал", означает что надо сохранить индексы элементов массива, значения которого находятся в заданном интервале.
Т.е. пройти до первого элемента попадающего в диапазон, запомнить MIN. Потом пройти от него до конца запоминая индекс элемента, попадающего в диапазон. всё

Судя по условию - ты прав... Но тогда что ж получается, - индексы минимального и максимального номера элемента вводятся вручную?(P=min]индексов[/B] максимального и минимального элементов, попавших в заданный интервал?

[EgorX]

Колядин Максим, спасибо, вот написал метод пузырьковый ... а вот не мог бы прописать коментариии ... как для самых "Чайников"

[Колядин Максим]

Колядин Максим, спасибо, вот написал метод пузырьковый ... а вот не мог бы прописать коментариии ... как для самых "Чайников"

Код: Выделить всё

var a: array [1..2] of integer]:=2;         
a[2]:=1;
{получили массив: 2 1}
repeat {делаем пока done<>true};
done:=true;
{сравнение двух соседних элементов}
for i:= 1 to 2 do if a[i]>a[i+1] then begin {если 2>1 тогда начать (тк. а[i]=1, a[i+1]=2)}
{меняем местами}
buf:=a[i];        {buf:=2}
a[i]:=a[i+1];    {2:=1}
a[i+1]:=buf;     {1:=buf (т.е. 2)}
{получили массив: 1 2}

done:=false;    {массив не был отсортирован.(судя по условию в начале операции)}
end;
until done;
end.

[EgorX]

Колядин Максим, благодарю

[EgorX]

Фух .... все ...все задачи которые нужно сделал ... всем спасибо =) =ы) ... особенно Колядин Максим

[Игорь Акопян]

индексы минимального и максимального номера элемента вводятся вручную?(P=min; Q=max)

вводится диапазон значений, а найти надо индексы

Код: Выделить всё

procedure bubble; //пузырьковая сортировка
var i, j, t : byte;
begin
    for i :=2 to N do
        for j:=N downto i do
            if x[i-1]>x[j] then
            begin 
              t:=x[j-1];
              x[j-1]:=x[j];
              x[j]:=t; 
            end;
end;

обратите внимание, как тут сделан НЕ выход за границы массива

взято тут http://www.structur.h1.ru/sort.htm