给出n个数,你要将这n个数从小到大排序输出 用pascal做
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/16 16:40:00
给出n个数,你要将这n个数从小到大排序输出 用pascal做
![给出n个数,你要将这n个数从小到大排序输出 用pascal做](/uploads/image/z/19842967-55-7.jpg?t=%E7%BB%99%E5%87%BAn%E4%B8%AA%E6%95%B0%2C%E4%BD%A0%E8%A6%81%E5%B0%86%E8%BF%99n%E4%B8%AA%E6%95%B0%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%BA%8F%E8%BE%93%E5%87%BA+%E7%94%A8pascal%E5%81%9A)
var
a:array[1..1000] of integer;
n,i,j,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=n-1 downto i do
if a[j]>a[j+1] then
begin
t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
writeln
end.
再问: 不行
a:array[1..1000] of integer;
n,i,j,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=n-1 downto i do
if a[j]>a[j+1] then
begin
t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
writeln
end.
再问: 不行
给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题
pascal,从n个数中选择m个数,输出每一种组合,并统计总的个数
pascal中输入n个一位数再输入s,用n个数组成n位数(数不可重复),从大到小排列后,输出第s个数
给出一个整数n,输出所有比n小的且是7的倍数的数 用pascal做
求n个数的最大值和最小值用Pascal
pascal语言:输入n个数,并输出最大的数和最小的数
求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数.
用pascal语言编程:输出n(n
pascal题:求N个数的和,给出一个正整数N,可求出从1开始的这N个数的全部各个数位上的数字之和.
用pascal 输入N个数,计算偶数、奇数和零的个数
c语言数组编程,输入n个整数,将这n个数按绝对值由大到小排序输出
从键盘上输入10个数,C语言程序:用起泡法对这10个数排从小到大的顺序排序后输出.