终于写完了，我提供一个取出最大数和最小数的程序给你：步骤是先将7个数加起来，减去取出来的最大和最小数就可以了，程序如下：
我将输入的7个整数存在MW400开始的14的字节里，因为取最大和最小数的时候有用到，所以分开来：
数据求和：
OPN DB 1
L 0
T MW 320

LAR1 P#M 400.0
L 7
_005: T MW 210
L MW 320
L MW [AR1,P#0.0]
+I
T MW 320

+AR1 P#2.0
L MW 210
LOOP _005
NOP 0
取最大和最小数
CALL "BLKMOV"
SRCBLK :=P#M 400.0 BYTE 14
RET_VAL:=MW440
DSTBLK :=P#DB1.DBX0.0 BYTE 14
OPN DB 1
LAR1 P#0.0
L 6
_001: T MW 200
L DBW [AR1,P#0.0]
L DBW [AR1,P#2.0]
JCN _002
TAK
T DBW [AR1,P#2.0]
_002: +AR1 P#2.0
L DBW [AR1,P#0.0]
T MW 300
L MW 200
LOOP _001
CALL "BLKMOV"
SRCBLK :=P#M 400.0 BYTE 14
RET_VAL:=MW442
DSTBLK :=P#DB1.DBX14.0 BYTE 14


LAR2 P#14.0
L 6
_003: T MW 202
L DBW [AR2,P#0.0]
L DBW [AR2,P#2.0]
>I
JCN _004
TAK
T DBW [AR2,P#2.0]
_004: +AR2 P#2.0
L DBW [AR2,P#0.0]
T MW 302
L MW 202
LOOP _003
最小数在MW300里，最小的数在MW302里，剩下的除法运算就交给你自己了，，可以的话记得好评哦，亲！
写了好久了！