pascal问题求输出
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 07:23:23
pascal问题求输出
var a:array[1..6] of integer;
i,j,p,t:integer;
begin
for i:=1 to 6 do read(a[i]);
for j:=1 to 6-1 do
begin
p:=j;
for i:=j to 6 do
if a[i]< a[p] then p:=i;
t:=a[p];a[p]:=a[j];a[j]:=t;
end;
for i:=1 to 6 do
begin
write(a[i]:2);
if i mod 3=0 then writeln;
end;
end.
输入:7 2 5 1 9 4
var a:array[1..6] of integer;
i,j,p,t:integer;
begin
for i:=1 to 6 do read(a[i]);
for j:=1 to 6-1 do
begin
p:=j;
for i:=j to 6 do
if a[i]< a[p] then p:=i;
t:=a[p];a[p]:=a[j];a[j]:=t;
end;
for i:=1 to 6 do
begin
write(a[i]:2);
if i mod 3=0 then writeln;
end;
end.
输入:7 2 5 1 9 4
输入:7 2 5 1 9 4
输出:
1 2 4
5 7 9
输出:
1 2 4
5 7 9
pascal问题求输出
pascal问题,求程序:
pascal求质数!是的输出yes,不是的输出no.
pascal中求质数的问题.
pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.
信息奥赛PASCAL语言程序:问题-输入两个大写字母,按字典顺序输出.
pascal语言输出下列图形的问题,大家看看我为什么错了?
pascal问题 一个递推数列,输入n,输出f[n]; n
单词连接 (link.pas/c/cpp)pascal语言的问题,求pascal程序详细内容
求PASCAL大牛解答!转圈问题(NOIP2013)
求PASCAL背包问题和无限背包思路和程序
数字排列问题(pascal)