//โปรแกรมอ่านข้อมูลพิมพ์แบบสรุปว่าแต่ละเพศ มีพนักงานรับเงินเดือนเฉลี่ยเท่าใด
use empl
ee = array(reccount())
uu = array(reccount())
nu = array(reccount())
n= 1
for i = 1 to reccount()
if ascan(ee,emplsex) = 0
ee[n] = emplsex
uu[n] = emplsal
nu[n] = 1
n++
else
for j = 1 to n - 1
if (ee[j] = emplsex)
uu[j] = uu[j] + emplsal
nu[j]++
endif
next
endif
skip
next
for i = 1 to n - 1
@ i,5 say ee[i]
@ i,25 say uu[i] / nu[i]
next