如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/13 03:04:31
![如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中](/uploads/image/z/4311506-2-6.jpg?t=%E5%A6%82%E4%BD%95%E8%BE%93%E5%85%A5%E4%B8%89%E4%B8%AA%E6%95%B4%E6%95%B0%2C%E5%B0%86%E6%9C%80%E5%A4%A7%E5%80%BC%E6%94%BE%E5%85%A5MAX%E4%B8%AD%2C%E6%9C%80%E5%B0%8F%E5%80%BC%E6%94%BE%E5%85%A5MIN%E4%B8%AD%E7%94%A8%E4%BA%8EPASCAL%E4%B8%AD)
x){ީ/M~ںɎ';V=
:O7=t
{MuxcHtC?B(|ʊ'}\"}j
6|;:Ɏs=ٮ Wt?~,LAQ~zQbBqq5X,Lgd&VfXe敤A$Z%%VF*)&gYE)ц:F 8VZ_H>t팧sV w$lk"ҬϷ,x~7 Z"L+[C|#|`m6X&k_\g
{ .[
如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中
如何输入三个整数,将最大值放入MAX中,最小值放入MIN中
用于PASCAL中
如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中
下面是源程序:
program ssy;
var
i,j,max,min,t:integer;
a:array[1..3] of integer;
begin
read(a[1],a[2],a[3]);//读入三个数存在数组a里
{将数组a中的元素从大到小排序}
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]