Аллоха! В общем есть задача: ввести одномерный массив C(N)(N<=50). Переставить в нем элементы так, чтобы начале находился минимальный элемент, в конце максимальный, а все остальные элементы сохранили прежний порядок.
Т.е. был массив 4 5 2 89 3 7 9
а получаецо 2 4 5 3 7 9 89;
И никак не могу сделать цикл на перестановку этих элементов(работает тока 1 раз), вот собствено код, подскажите как этот цикл сделать?
так?
Program DEAD_AFFTAR;
uses crt;
var i,N,x,y:integer;
max, min:real;
C: array [1..50] of real;
p,q:real;
begin
clrscr;
write ('N='); readln(n);
for i:=1 to n do
begin
write ('c[',i,']='); readln (c[i]);
end;
for i:=1 to n do
write (c[i]:8:3 );
writeln;
max:=C[1];
x:=1;
for i:=1 to n do
if c[i]>max then
begin
max:=c[i];
x:=i;
end;
for i:=x to n-1 do
c[i]:=c[i+1];
min:=c[i];
y:=1;
for i:=1 to n do
if c[i]<min then
begin
min:=c[i];
y:=i;
end;
for i:=y downto 2 do
c[i]:=c[i-1];
c[1]:=min;
c[n]:=max;
for i:=1 to n do
write (c[i]:8:3);
readkey;
end.
Оооо слава великому Джа! РЕСПЕКТ и УВАЖУХА те товарисч! сталин не забудит тя))