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 dobeginp:=j;for i:=j to 6 doif a[i]< a[p] then p:=i;t:=a[p];a[p]:=a[j];a[j]:=t;end; for i:=1 to 6 dobeginwrite(a[i]:2);if i
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 11:09:31
![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 dobeginp:=j;for i:=j to 6 doif a[i]< a[p] then p:=i;t:=a[p];a[p]:=a[j];a[j]:=t;end; for i:=1 to 6 dobeginwrite(a[i]:2);if i](/uploads/image/z/11595412-28-2.jpg?t=pascal%E9%97%AE%E9%A2%98%E6%B1%82%E8%BE%93%E5%87%BAvar+a%3Aarray%5B1..6%5D+of+integer%3B%E3%80%80i%2Cj%2Cp%2Ct%3Ainteger%3Bbegin%E3%80%80for+i%3A%3D1+to+6+do+read%28a%5Bi%5D%29%3B%E3%80%80for+j%3A%3D1+to+6-1+dobeginp%3A%3Dj%3Bfor+i%3A%3Dj+to+6+doif+a%5Bi%5D%3C+a%5Bp%5D+then+p%3A%3Di%3Bt%3A%3Da%5Bp%5D%3Ba%5Bp%5D%3A%3Da%5Bj%5D%3Ba%5Bj%5D%3A%3Dt%3Bend%3B%E3%80%80for+i%3A%3D1+to+6+dobeginwrite%28a%5Bi%5D%3A2%29%3Bif+i)
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 dobeginp:=j;for i:=j to 6 doif a[i]< a[p] then p:=i;t:=a[p];a[p]:=a[j];a[j]:=t;end; for i:=1 to 6 dobeginwrite(a[i]:2);if i
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
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 dobeginp:=j;for i:=j to 6 doif a[i]< a[p] then p:=i;t:=a[p];a[p]:=a[j];a[j]:=t;end; for i:=1 to 6 dobeginwrite(a[i]:2);if i
输入:7 2 5 1 9 4
输出:
1 2 4
5 7 9