Anonymous user
Averages/Arithmetic mean: Difference between revisions
m
→{{header|REXX}}: changed TO --> FOR, expanded first comment. -- ~~~~
Walterpachl (talk | contribs) (Removed the repetition of ooRexx in the wrong place) |
m (→{{header|REXX}}: changed TO --> FOR, expanded first comment. -- ~~~~) |
||
Line 1,634:
=={{header|REXX}}==
<lang rexx>/*REXX program to find averages/arithmetic mean of several lists. */
test1='10 9 8 7 6 5 4 3 2 1'
say 'numbers='test1
Line 1,664:
avg: procedure; parse arg y
s=0
do j=1
x=word(y,j)
if \datatype(x,'N') then return '*error* non-numeric' x
| |||