編程求3個整數的最大值和最小值。

var

a,b,c:longint;

procedure?sw(var?a,b:longint);

var?c:longint;?begin?c:=a;?a:=b;?b:=c?end;

begin

read(a,b,c);

if?a>b?then?sw(a,b);

if?a>c?then?sw(a,c);

if?b>c?then?sw(b,c);

write('max=',c,'?min=',a)

end.

上一篇:迷妳世界海洋版本怎麽盛水

下一篇:永大電梯syk-4主辦芯片怎麽拆