Нужна программа, которая находит в одномерном массиве минимальное и максимальное значение

[Didar]

Нужна программа, которая находит в одномерном массиве минимальное и максимальное значение.... и сортирует ТОЛЬКО те значения, которые находятся в этом промежутке(от мин до макс, или же от макс к мин). Примечание: если промежуток начинается с максимального значения, то сортировать по убыванию, в противном случае - возрастать. Заранее благодарен!

[veniside]

Ну и что не получается?

Кстати, а что должна делать прога с таким массивом: 40, 10, 30, 20, 40, 20, 30, 10 ?

[Didar]

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

Ну и что не получается?

Кстати, а что должна делать прога с таким массивом: 40, 10, 30, 20, 40, 20, 30, 10 ?

да много шо не получается.....
а при вводе 40, 10, 30, 20, 40, 20, 30, 10 .... ничего не должно изменяться! так же и оставить.....

[veniside]

> да много шо не получается.....

ну хоть минимум получается найти? или максимум?

> а при вводе 40, 10, 30, 20, 40, 20, 30, 10 .... ничего не должно изменяться! так же и оставить.....

хм.. а почему не отсортировать всё от первого 40 по убыванию к последней 10? Как прога может понять, когда сортировать, а когда оставить как есть?

[Didar]

нет... я только начал изучать этот Паскаль, а мне уже такие задачи задали... вот все что написал:

Program z1;
Uses crt;
const s=0;
var m:array[1..100] of integer;
    i,n,l,max,min:integer;
begin
Clrscr;
     randomize;
     writeln('Vvedyte koli4estvo elementov');
     readln(n);
     writeln('Vvedite elementy massive');
     for i:=1 to n do read(m[i]);
     max:=m[i];
     min:=m[i];

end.

[Вадим Мошев]

Немного не по теме.
Didar, пожалуйста, в следующий раз, когда вы выкладываете код программы, пользуйтесь для специализированным для этого тэгом. Это такая кнопочка с изображениям решётки.

[mss]

> только начал изучать этот Паскаль, а мне уже такие задачи задали

Рыдаю от жалости.
Бедняга, как же тебя измордовали эти изверги-преподы !

[Didar]

Че за пустые разговоры, знаешь - помоги, не знаешь - какого х.. зашел...

[Shift_sk]

var a:array[1..100] of integer;
i,j,c,n,min,max,nmin,nmax:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
nmin:=1;
nmax:=1;
for i:=1 to n do begin
if min>a[i] then begin min:=a[i]; nmin:=i; end;
if max<a[i] then begin max:=a[i]; nmax:=i end;
end;
if nmax>nmin then begin
for i:=nmin+1 to nmax-1 do
for j:=nmin+1 to nmax-1 do
if a[j]>a[j+1] then
begin
c:=a[j+1];
a[j+1]:=a[j];
a[j]:=c;
end;
end
else begin 
for i:=nmax+1 to nmin-1 do
for j:=nmax+1 to nmin-1 do
if a[j]<a[j+1] then
begin
c:=a[j+1];
a[j+1]:=a[j];
a[j]:=c;
end;

end;
for i:=1 to n do
write(a[i],' ');
end.

примерно так!

[Didar]

Спасибо большое!