* В следующем примере команда APPEND BLANK создает таблицу из 10
* записей, содержащих случайные числа, а затем функции MIN( ) и MAX( )
* выводят на экран максимальное и минимальное значения в этой таблице.

CLOSE DATABASES

CREATE TABLE Random (cValue N(3))

FOR nItem = 1 TO 10 && Append 10 records,

APPEND BLANK

REPLACE cValue WITH 1 + 100 * RAND( ) && Insert random values

ENDFOR

CLEAR

LIST && Display the values

gnMaximum = 1 && Initialize minimum value

gnMinimum = 100 && Initialize maximum value

SCAN

gnMinimum = MIN(gnMinimum, cValue)

gnMaximum = MAX(gnMaximum, cValue)

ENDSCAN

? 'The minimum value is: ', gnMinimum && Display minimum value

? 'The maximum value is: ', gnMaximum && Display maximum value