求數組中離平均數最近的那個數。函數int-mid（int-a[]，int-len）計算數組a中所有數的平均值，并返回數組中離該平均值最近的那個數，編寫該函數。
注意：部分源程序給出如下。請勿改動主函數main和其它函數中的任何內容，僅在函數的花括號中填入所編寫的若干語句。

編寫一個函數compose（），求解1、2、3、4四個數字能組成多少個互不相同且無重復數字的三位數。
注意：部分源程序給出如下。請勿改動主函數main和其它函數中的任何內容，僅在函數的花括號中填入所編寫的若干語句。

一個首項大于0的遞增等差數列前四項和為26，前四項積為880，請編寫一個函數int-myfun（）返回該數列的第20項的值。
提示：如果一個數列從第二項起，每一項與它的前一項的差等于同一個常數，這個數列就叫做等差數列，這個常數叫做等差數列的公差。
例如：等差數列：1，3，5，7，9，11。該數列的公差是2，第5項值是9。
注意：部分源程序給出如下。請勿改動主函數main和其它函數中的任何內容，僅在注釋形式標識Program和End之間填入所編寫的若干語句。

將數組S中所有小寫字母改寫成大寫字母。
注意：部分源程序給出如下。請勿改動主函數main和其它函數中的任何內容，僅在函數的花括號中填入所編寫的若干語句。

下面的函數countchar統計字符串s中非英文字母的個數并返回。完成該函數的編寫。
注意：部分源程序給出如下。請勿改動主函數main和其它函數中的任何內容，僅在函數的花括號中填入所編寫的若干語句。