求第二大数

以下是引用sdta在2021-2-16 11:02:53的发言：

create cursor b1 (m1 n(3),m2 n(3),m3 n(3),m4 n(3),m5 n(3),max_2 n(5))
insert into b1 values (1,3,2,7,4,4)
insert into b1 values (4,9,8,6,5,8)
insert into b1 values (3,0,2,5,8,5)
insert into b1 values (4,1,5,8,3,5)
blank fields max_2 all
scan
    scatter fields m1, m2, m3, m4, m5 to la
    asort[la]
    replace max_2 with la[alen(la, 1) - 1]
endscan
browse