Question

pascal问题！急！

·1、Description
任意输入n个整数，把它们的最大值，最小值求出来.
Input
输入只有一行，包括一个整数n(1<=n<=20),后面跟着n个数.
Output
输出只有一行,包括2个整数。
Sample Input
5 1 99 3 6 0
Sample Output
99 0

Description
四（1）班要举行一次歌唱比赛，以选拔更好的苗子参加校的歌唱比赛。评分办法如下：设N个评委，打N个分数（0 <= 每个分数 <= 10），去掉一个最高分，去掉一个最低分，剩下的评委的平均分即为该选手的最后得分。但是选手太多了，靠人工计算每个选手的得分太慢太麻烦。你能不能帮帮他们，设计一个程序让计算机来算出选手的最后得分呢？
Input
第一行为一个整数N（ 5 <= N <= 10 ） 第二行为N个整数Ai（ 0 <= Ai <= 10 ）
Output
选手的最后得分（保留两位小数）
Sample Input
5 5 6 7 8 9
Sample Output
7.00

3、Description
某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。
Input
输入一行，五个整数a,b,c,d,e。
Output
输出一行，五个整数（分别表示5个小朋友的剩余糖果数）
Sample Input
1 2 3 4 5
Sample Output
2 1 2 3 2
Source

4、Description
给你m个整数，查找其中有无值为n的数，有则输出该数第一次出现的位置,没有则输出-1。 Input
第一行一个整数m：数的个数 ( 0 <= m <= 100 ) 第二行m个整数（空格隔开）( 这些数在 0-999999范围内 ) 第三行为要查找的数n
Output
n的位置或-1
Sample Input
4 1 2 3 3 3
Sample Output
3

5、Description
对数组的元素按从小到大进行排序
Input
有两行 第一行有一个整数n( 5 <= n <= 10 ) 第二行有n个整数 
Output
输出更新后的数组
Sample Input
8 1 2 3 6 8 7 4 5
Sample Output
1 2 3 4 5 6 7 8
Hint
用插入、选择、冒泡三种方法进行排序。

2、

Answer 1

一：
program aaa;
var
a,n,i,max,min:longint;
begin
readln(n);
for i:=1 to n do
begin
read(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln(max,' ',min);
readln;
readln;
end.

二：
program aaa;
var
a:array[1..10]of longint;
n,i,j,t,v:longint;
ans:real;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n-1 do
for j:=i to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=2 to n-1 do
v:=v+a[i];
ans:=v/(n-2);
writeln(ans:0:2);
readln;
readln;
end.