Add all the A tasks

Task/Averages-Median/AppleScript/averages-median.applescript

@@ -0,0 +1,44 @@
+set alist to {1,2,3,4,5,6,7,8}
+set med to medi(alist)
+
+on medi(alist)
+	
+	set temp to {}
+	set lcount to count every item of alist
+	if lcount is equal to 2 then
+		return (item (random number from 1 to 2) of alist)
+	else if lcount is less than 2 then
+		return item 1 of alist
+	else --if lcount is greater than 2
+		set min to findmin(alist)
+		set max to findmax(alist)
+		repeat with x from 1 to lcount
+			if x is not equal to min and x is not equal to max then set end of temp to item x of alist
+		end repeat
+		set med to medi(temp)
+	end if
+	return med
+	
+end medi
+
+on findmin(alist)
+	
+	set min to 1
+	set alength to count every item of alist
+	repeat with x from 1 to alength
+		if item x of alist is less than item min of alist then set min to x
+	end repeat
+	return min
+	
+end findmin
+
+on findmax(alist)
+	
+	set max to 1
+	set alength to count every item of alist
+	repeat with x from 1 to alength
+		if item x of alist is greater than item max of alist then set max to x
+	end repeat
+	return max
+	
+end findmax