高手帮忙 数据结构题 .2.

来源：百度知道 编辑：UC知道 时间：2024/05/08 10:08:31
试写一算法，自大至小依次输出顺序读入的三个整数 X、Y和Z的值。
给出解答 追加悬赏 谢谢

var
a,b,c,i:longint;
d:array[1..100000] of 0..1;
begin
fillchar(d,sizeof(d),0);
readln(a,b,c);
d[a]:=1;
d[b]:=1;
d[c]:=1;
for i:=100000 downto 1 do
if d[i]=1
then write(i,' ');
end.
PS:你还想怎么样