12 lines
184 B
Text
12 lines
184 B
Text
|
total=17
|
||
|
|
dim nums(total)
|
||
|
|
for i = 1 to total
|
||
|
|
nums(i)=i-1
|
||
|
|
next
|
||
|
|
|
||
|
|
for j = 1 to total
|
||
|
|
sum=sum+nums(j)
|
||
|
|
next
|
||
|
|
if total=0 then mean=0 else mean=sum/total
|
||
|
|
print "Arithmetic mean: ";mean
|