给出n个数，你要将这n(n<=100000)个数从小到大排序输出 用pascal做

Answer 1

冒泡法，已试过，望采纳
program maopao;
const n=5; {n设为5，可以修改}
var a:array[1..n] of integer;
i,j:integer;
temp:integer;
begin
writeln('please input array');
for i:=1 to n do read(a[i]); {读入数组a}
writeln('array a:');
for i:=1 to n do write(a[i],' ');writeln; {输出原始数据}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
temp:=a[i];a[i]:=a[j];a[j]:=temp; {交换a[i],a[j])
end;
writeln('Result');
for i:=1 to n do write(a[i],' ');writeln; {输出}
end.

追问

不行啊

追答

数据溢出吗？把integer改正longint

其他应该是对的，试过很多次了，

附图：

program maopao;

const n=5;                                                         {n设为5，可以修改}

var a:array[1..n] oflongint;         

    i,j:integer;

    temp:longint;

begin

     writeln('please input array');

     for i:=1 to n do read(a[i]);                    {读入数组a}

     writeln('array a:');

     for i:=1 to n do write(a[i],'  ');writeln;  {输出原始数据}

        for i:=1 to n-1 do

         for j:=i+1 to n do

            if a[i]>a[j] then

            begin

              temp:=a[i];a[i]:=a[j];a[j]:=temp;  {交换a[i],a[j])

              end;

     writeln('Result');

     for i:=1 to n do write(a[i],'  ');writeln;   {输出}

end.



追问

题目描述
给出n个数，你要将这n(n<=100000)个数从小到大排序输出
输入

第一行一个整数n 接下来n行，每行一个整数
输出

将这n个整数从小到大排序输出，每个数占一行
样例输入
5
5
4
3
2
1

样例输出

1
2
3
4
5

追答

现在行了吧 

程序如下：

program maopao;

var a:array[1..100000] of longint;

    i,j:integer;

    temp:longint;

    n:1..100000;

begin

     readln(n);

     for i:=1 to n do readln(a[i]);

        for i:=1 to n-1 do

         for j:=i+1 to n do

            if a[i]>a[j] then

            begin

              temp:=a[i];a[i]:=a[j];a[j]:=temp;

              end;

     writeln('Result');

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

end.

附图：

Answer 2

插入排序，希尔排序，快速排序!
数据量已经很大了，简单排序效率太低了！

Answer 3

冒泡排序太慢，必须使用时间复杂度低的快速排序或堆排序，时间复杂度O(NlogN)。

Answer 4

一种排序方法：冒泡排序
program Project1;
var
na: array[1..100000] of Integer;
n, i, j, k: Longint;
begin
n := 0;
{Read}
while not Eoln do
begin
Inc(n);
Read(na[n]);
end;
{Sort}
for i := 1 to n - 2 do
for j := 1 to n - i do
if na[j] > na[j + 1] then
begin
k := na[j];
na[j] := na[j + 1];
na[j + 1] := k;
end;
{Print}
for i := 1 to n do
Write(na[i], ' ');
Readln;
Readln;
end.

追问

不行

追答

n不需要你输入！你输入任意个数，数与数之间用空格隔开，全输完了按回车，答案就出来了。
我的电脑试没有问题。

追问

题目描述
给出n个数，你要将这n(n<=100000)个数从小到大排序输出
输入

第一行一个整数n 接下来n行，每行一个整数
输出

将这n个整数从小到大排序输出，每个数占一行
样例输入 Copy

5
5
4
3
2
1

样例输出 Copy

1
2
3
4
5

追答

如果你连题目都描述不清楚，就不要随便说别人的程序“不行”。
用下面的就行了。
program Project1;
var
na: array[1..100000] of Integer;
n, i, j, k: Longint;
begin
Readln(n);
for i := 1 to n do
Readln(na[i]);
for i := 1 to n - 1 do
for j := 1 to n - i do
if na[j] > na[j + 1] then
begin
k := na[j];
na[j] := na[j + 1];
na[j + 1] := k;
end;
for i := 1 to n do
Write(na[i], ' ');
Readln;
end.

Answer 5

先比较选出最小的,然后把最小的T掉再从剩下的里面找出最小的,以此类推,最后到没有数了就停止.(最笨的方法...)