PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1161
发信站: 哈工大紫丁香 (2002年03月20日13:47:52 星期三)
来  源: mtlab4.hit.edu.cn 

168520 05:50:38 20 Mar 2002
Bozhang,HIT,P.R.China 1161 Pascal Accepted 0.02 sec 53K

var
    a:array[1..100] of word;
    i,j,k,n:integer;
    r:real;
begin
    readln(n);
    for i:=1 to n do readln(a[i]);
    for i:=1 to n-1 do begin
        k:=i;
        for j:=i+1 to n do if a[j]>a[k] then k:=j;
        if k<>i then begin
            j:=a[i]; a[i]:=a[k]; a[k]:=j
        end;
    end;
    r:=a[1];
    for i:=2 to n do begin
        r:=sqrt(r*a[i])*2;
    end;
    writeln(r:0:2);
end.

--
千 但 此 月 人 别 何 不 照 低 转 何 起 高 又 我 今 不 把 明 
里 愿 事 有 有 时 事 应 无 绮 朱 似 舞 处 恐 欲 夕 知 酒 月 
共 人 古 阴 悲 圆 长 有 眠 户 阁 在 弄 不 琼 乘 是 天 问 几 
婵 长 难 晴 欢    向 恨          人 清 胜 楼 风 何 上 青 时 
娟 久 全 圆 离                   间 影 寒 玉 归 年 宫 天 有 
         缺 合                            宇 去    阙       

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]