作业帮帮忙看看哪错了（pascal）（数学黑洞6174 已知：一个任意的四位正整数.将数字重新组合成一个最vara :array[1..4]of integer;max4,max3,max2,max1,m,i,j,k:integer;flag:boolean;cha:longint;beginread(a[1],a[2],a[3],a[4]);flag
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/19 20:26:42
![帮忙看看哪错了（pascal）（数学黑洞6174 已知：一个任意的四位正整数.将数字重新组合成一个最vara :array[1..4]of integer;max4,max3,max2,max1,m,i,j,k:integer;flag:boolean;cha:longint;beginread(a[1],a[2],a[3],a[4]);flag](/uploads/image/z/8641391-23-1.jpg?t=%E5%B8%AE%E5%BF%99%E7%9C%8B%E7%9C%8B%E5%93%AA%E9%94%99%E4%BA%86%EF%BC%88pascal%EF%BC%89%EF%BC%88%E6%95%B0%E5%AD%A6%E9%BB%91%E6%B4%9E6174+%E5%B7%B2%E7%9F%A5%EF%BC%9A%E4%B8%80%E4%B8%AA%E4%BB%BB%E6%84%8F%E7%9A%84%E5%9B%9B%E4%BD%8D%E6%AD%A3%E6%95%B4%E6%95%B0.%E5%B0%86%E6%95%B0%E5%AD%97%E9%87%8D%E6%96%B0%E7%BB%84%E5%90%88%E6%88%90%E4%B8%80%E4%B8%AA%E6%9C%80vara+%3Aarray%5B1..4%5Dof+integer%3Bmax4%2Cmax3%2Cmax2%2Cmax1%2Cm%2Ci%2Cj%2Ck%3Ainteger%3Bflag%3Aboolean%3Bcha%3Alongint%3Bbeginread%28a%5B1%5D%2Ca%5B2%5D%2Ca%5B3%5D%2Ca%5B4%5D%29%3Bflag)
帮忙看看哪错了（pascal）（数学黑洞6174 已知：一个任意的四位正整数.将数字重新组合成一个最vara :array[1..4]of integer;max4,max3,max2,max1,m,i,j,k:integer;flag:boolean;cha:longint;beginread(a[1],a[2],a[3],a[4]);flag
帮忙看看哪错了（pascal）（数学黑洞6174 已知：一个任意的四位正整数.将数字重新组合成一个最
var
a :array[1..4]of integer;
max4,max3,max2,max1,m,i,j,k:integer;
flag:boolean;
cha:longint;
begin
read(a[1],a[2],a[3],a[4]);
flag:=true;
m:=0;
while cha 6174 do
begin
m:=m+1;
for i:=1 to 4 do
begin
max4:=a[i];
if a[i]>max4
then
begin
max4:=a[i];
flag:=false;
end;
end;
if flag
then
begin
for j:=1 to 3 do
begin
max3:=a[j];
if a[j]>max3
then
begin
max3:=a[j];
flag:=false;
end;
end;
end;
if flag
then
begin
for k:=1 to 2 do
begin
read(a[k]);
max2:=a[k];
if a[k]>max2
then
begin
max2:=a[k];
flag:=false;
end;
end;
end;
if flag
then a[i]:=max1;
cha:=max4*1000+max3*100+max2*10+max1-max1*1000-max2*100-max3*10-max4;
cha:=a[1]*1000+a[2]*100+a[3]*10+a[4];
end;
if m
帮忙看看哪错了（pascal）（数学黑洞6174 已知：一个任意的四位正整数.将数字重新组合成一个最vara :array[1..4]of integer;max4,max3,max2,max1,m,i,j,k:integer;flag:boolean;cha:longint;beginread(a[1],a[2],a[3],a[4]);flag
排序的语句是有问题的.
如果用冒泡法排序,可以这样：
for i:=1 to 3 do
for j:=i+1 to 4 do
begin
if a[i]