11 lines
184 B
Text
11 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
|