问题描述
给出n个数，找出这n个数的第二大值，第二小值，平方和。
输入格式
第一行为整数n，表示数的个数。(2<=n<=100)
第二行有n个数，为给定的n个数，每个数的绝对值都小于1000。
输出格式
输出三行，每行一个整数。第一行表示这些数中的第二大值，第二行表示这些数中的第二小值，第三行表示这些数的平方和。
样例输入
5
100 100 -30 30 1
样例输出
100
1
21801
skysun原创，转载请注明出处，http://www.cnblogs.com/skysun
View Code
1 begin
2 readln(n);
3 maxa:=-maxlongint+1; max2:=maxa-1;
4 mina:=maxlongint-1; min2:=mina+1;
5 for i:=1 to n do
6 begin
7 read(a[i]);
8 sum:=sum+a[i]*a[i];
9 if a[i]>=maxa then begin max2:=maxa; maxa:=a[i]; end;
10 if (a[i]<maxa) and (a[i]>max2) then max2:=a[i];
11 if a[i]<=mina then begin min2:=mina; mina:=a[i]; end;
12 if (a[i]>mina) and (a[i]<min2) then min2:=a[i];
13 end;
14 writeln(max2); writeln(min2);
15 writeln(sum);
16 end.
此题可以n*n模拟过，又因为求第二大，值不当的打一个第k大的，所以人工打了一个模拟
需要注意的是不能随便continue，并且因为两个变量涉及到赋初值，
所以不能直接采用直接读入a[1]，然后把最值赋成a[1]的方法，
本来想用这个避免一些问题，后来发现，还是传统赋初值方法是正确的。