Сделал следующим образом:
Code
local real array a //io 1 ai 9
local real b
local integer i = 2
set b = a[1]
loop
exitwhen i > 9
if(b > a[i])then
set b = a[i]
endif
set i = i + 1
endloop
return b
Как говориться, не обязательно есть всю кучу говна, чтобы понять, что она однородна.
© Александр Зорич