Answer

Hi,

 

BEGIN PROCEDURE

 

Dimension eName as string array

Dimension eSalary as floating

Dimension counter as integer

Dimension eSum as floating

Dimension eMean as floating

Dimension eAbove as integer

Dimension eBelow as integer

 

Set counter to 0

Do While entry not blank

Read employee name

Set name to array variable eName()

Read employee salary

Set salary to array variable eSalary()

counter = counter + 1

End Do

 

Set eSum to 0

For i = 1 to counter

eSum = eSum + eSalary(i)

Next i

eMean = eSum/counter

 

Set eAbove to 0
Set eBelow to 0

For j = 1 to counter
If eSalary(j) > eMean Then

eAbove=eAbove +1

End If

If eSalary(j) < eMean Then

eBelow=eBelow+1

End If

Next j

 

Print "Mean Salary = ", eMean

Print "Number of salaries above mean = ", eAbove

Print "Number of salaries below mean = ", eBelow

 

END PROCEDURE

 

 

Hope this helps. Let me know if you have any questions.

 

Edited by John D on 8/16/2008 at 12:07 PM

Expert:	John D
Pos. Feedback:	99.2 %
Accepts:
Answered:	8/16/2008

BS Degree in Engineering.

25 years experience in computer programming and troubleshooting. Planning & Construction Management