Паскаль

[Морячок]

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

program Max_search;
uses crt;
const m=10;
type vector=array[1..m] of integer;
var a:vector;
i,j,imax,max,p,d:integer;
n:real;
Begin
clrscr;
randomize;
writeln('Ñîçäàíèå ìàññèâà è åãî âûâîä');
for i:=1 to m do
begin
p:=random(10);
a[i]:=p-1;
write(a[i]:3);
end;
max:=a[1];
for i:=2 to m do
if max<a[i] then
begin
max:=a[i];
imax:=i
end;
writeln;
writeln('çíà÷åíèå ìàêñèìàëüíîãî=',max);
writeln('Èíäåêñ ìàêñèìàëüíîãî=',imax);
{óïîðÿäî÷åíèå ýëåìåíòîâ ìàññèâà Z}
for i:=1 to m-1 do
for j:=1 to m-i do
if a[i]>=a[i+1] then
begin
d:=a[i];
a[i]:=a[i+1];
a[i+1]:=d;
writeln('Óïîðÿäî÷åííûé ìàññèâ Z');
for i:=1 to m do write (a[i]:3);
writeln;
readln;
end;
end.

[ROMA2PVT]

for i:=1 to m-1 do
  for j:=1 to m-i do
    if a[j]>=a[j+1] then
       begin
          d:=a[j];
          a[j]:=a[j+1];
          a[j+1]:=d;
       end;

[Морячок]

[облом рпарпапрапырпы

[Kazik]

нужно использовать пузырьковый обмен...посмотри где нить в нэте...очень простой метод

[Морячок]

вставил код не проходит, вчем дело?

[Морячок]

да я уже 3 дня бошку ломаю, не че не выходит

[ROMA2PVT]

показывай как код вставлял.Всё сортирует ток что проверил.

[Морячок]

program Max_search;
uses crt;
const m=10;
type vector=array[1..m] of integer;
var a:vector;
i,j,imax,max,p,d:integer;
n:real;
Begin
clrscr;
randomize;
writeln('Ñîçäàíèå ìàññèâà è åãî âûâîä');
for i:=1 to m do
begin
p:=random(10);
a[i]:=p-1;
write(a[i]:3);
end;
max:=a[1];
for i:=2 to m do
if max<a[i] then
begin
max:=a[i];
imax:=i
end;
writeln;
writeln('çíà÷åíèå ìàêñèìàëüíîãî=',max);
writeln('Èíäåêñ ìàêñèìàëüíîãî=',imax);
{óïîðÿäî÷åíèå ýëåìåíòîâ ìàññèâà Z}
for i:=1 to m-1 do
for j:=1 to m-i do
if a[j]>=a[j+1] then
begin
d:=a[j];
a[j]:=a[j+1];
a[j+1]:=d;
writeln('Óïîðÿäî÷åííûé ìàññèâ Z');
for i:=1 to m do write (a[i]:3);
writeln;
readln;
end;
end.

[ROMA2PVT]

program Max_search;
uses crt;
const m=10;
type vector=array[1..m] of integer;
var a:vector;
i,j,imax,max,p,d:integer;
n:real;
Begin
clrscr;
randomize;
writeln('Nicaaiea ianneaa e aai auaia');
for i:=1 to m do
begin
p:=random(10);
a[i]:=p-1;
write(a[i]:3);
end;
max:=a[1];
for i:=2 to m do
if max<a[i] then
begin
max:=a[i];
imax:=i
end;
writeln;
writeln('cia?aiea iaeneiaeuiiai=',max);
writeln('Eiaaen iaeneiaeuiiai=',imax);
{oii?yai?aiea yeaiaioia ianneaa Z}
for i:=1 to m-1 do
for j:=1 to m-i do
if a[j]>=a[j+1] then
begin
d:=a[j];
a[j]:=a[j+1];
a[j+1]:=d;
end;
writeln('Oii?yai?aiiue iannea Z');
for i:=1 to m do
write (a[i]:3);
writeln;
readln;
end.

вот так надо.

[Морячок]

спасибо, выручил!!!! от души !!!! осталось курсовую записку состряпать до конца и всё!!!)))